move mouse

[paul]

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

[Clunietp]

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


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