Перемещение мыши и клики в определенных местах

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

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
 
' Устанавливаем координаты курсора в точку (300, 600)
Call SetCursorPos(300, 600)

Option Explicit
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Sub Form_Load()
    Call SetCursorPos(300, 600)
End Sub

Private Sub KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case KeyUp
MsgBox "фы", 64, "йц"
End Select
End Sub

Private Sub KeyPress(KeyAscii As Integer)
Select Case Chr$(KeyAscii)
Case "a"
MsgBox "фы", 64, "йц"
End Select
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    MsgBox Chr(KeyAscii) & "   " & KeyAscii
End Sub
 
Private Sub Form_Load()
    KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 38
MsgBox "фы", 64, "йц"
End Select
End Sub

Option Explicit
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Long
    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)
    Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) 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
    
Private Sub Form_Load()
    Timer1.Interval = 100: Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
       Dim x  As Double, y  As Double
       'Ели нажали клавишу "Ю" (мне так понравилось :))
       If GetAsyncKeyState(190) < 0 Then
            'определяем координаты своего заголовка
            x = (Me.Left + Me.Width / 2) / Screen.TwipsPerPixelX
            y = (Me.Top + 100) / Screen.TwipsPerPixelY
            'устанавливаем курсор на заголовок
            Call SetCursorPos(x, y)
            'нажимаем ЛКМ
            Call mouse_event(MOUSEEVENTF_LEFTDOWN, x, y, 1, 1)
            'перемещаем на 20 пикселей вправо
            Call mouse_event(MOUSEEVENTF_MOVE, 20, 0, 1, 1)
            'отпускаем ЛКМ
            Call mouse_event(MOUSEEVENTF_LEFTUP, x, y, 1, 1)
       End If
End Sub