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
Printable View
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