Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As _
  Integer
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal Y As _
Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As Pointapi) As Long
Private Type Pointapi
x As Long
Y As Long
End Type
Private Const VK_LBUTTON = &H1
 
Private Sub Form_Load()
Call GetAsyncKeyState(VK_LBUTTON)
End Sub
 
Private Sub Timer1_Timer()
Dim pos As Pointapi
If GetAsyncKeyState(VK_LBUTTON) Then
GetCursorPos pos
pos.Y = pos.Y + 100
buffer = SetCursorPos(pos.x, pos.Y)
End If
End Sub