Перемещение курсора мыши и имитация кликов

Sub Command1_MouseUp (Button As Integer, Shift As Integer, _
   X As Integer, Y As Integer)
   '
   If Button = 2 Then  ' Правая кнопка мыши
       If X >= 0 And X <= Command1.Width And _
           Y >= 0 And Y <= Command1.Height Then
           ' Здесь нужно написать код, который
           ' обрабатывает данное событие
       End If
   End If
End Sub

#If Win32 Then
   Private Declare Function SetCursorPos Lib "user32" _
       (ByVal x As Long, ByVal y As Long) As Long
#Else
   Declare Sub SetCursorPos Lib "User" _
       (ByVal x As Integer, ByVal y As Integer)
#End If
 
Private Sub Form_Load()
   #If Win32 Then
       Dim x As Long, y As Long
   #Else
       Dim x As Integer, y As Integer
   #End If
   '
   Me.Show
   ' Вычисляет координаты командной кнопки
   x = (Me.Left + Command1.Left + Command1.Width / 2) _
       / Screen.TwipsPerPixelX
   y = (Me.Top + Command1.Top + Command1.Height / 2 _
       + Me.Height - Me.ScaleHeight) _
       / Screen.TwipsPerPixelY
   ' Помещает курсор на кнопку
   SetCursorPos x, y
End Sub

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
    Const MOUSEEVENTF_LEFTDOWN = &H2
    Const MOUSEEVENTF_LEFTUP = &H4
    Const MOUSEEVENTF_MIDDLEDOWN = &H20
    Const MOUSEEVENTF_MIDDLEUP = &H40
    Const MOUSEEVENTF_MOVE = &H1
    Const MOUSEEVENTF_ABSOLUTE = &H8000
    Const MOUSEEVENTF_RIGHTDOWN = &H8
    Const MOUSEEVENTF_RIGHTUP = &H10
 
  'Cursor.Position = New Point(0, 0)
          '  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 1, 1)
           ' mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 1, 1)

Cursor.Position = New Point(x, y)