新建From1（窗体），新建Command1（按钮CommandButton），代码：

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
Private Const mouse_eventC = &H2     '  Event contains mouse event record
Private Const MOUSE_MOVED = &H1
Private Const MOUSEEVENTF_ABSOLUTE = &H8000    '  absolute move
Private Const MOUSEEVENTF_LEFTDOWN = &H2    '  left button down
Private Const MOUSEEVENTF_LEFTUP = &H4    '  left button up
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20    '  middle button down
Private Const MOUSEEVENTF_MIDDLEUP = &H40    '  middle button up
Private Const MOUSEEVENTF_MOVE = &H1    '  mouse move
Private Const MOUSEEVENTF_RIGHTDOWN = &H8    '  right button down
Private Const MOUSEEVENTF_RIGHTUP = &H10    '  right button up

Private Sub Command1_Click()
    SetCursorPos 5, (Screen.Height / Screen.TwipsPerPixelY) - 8
    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub