move mouse

i WANT TO USE A TIMER TO MOVE THE MOUSE FROM TOP TO BOTTOM CAN ANY ONE TELL ME HOW TO DO THAT?
tHANKS FOR AMY HELP

here is a pretty crude example, you can fix it up to the way you like:

Code:

---

Option Explicit
Private Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, ByVal y As Long) As Long

Private Sub Timer1_Timer()
    Dim I As Long
   
    For I = 0 To Screen.Height
        SetCursorPos 100, I
        DoEvents
    Next I

End Sub

---