Programming » Visual Basic 6 » Visual Basic 6 Code » Mouse » ");?>

Simulates a mouse click at the current cursor position.

Public 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)

Public Const MOUSEEVENTF_LEFTDOWN = &H2    '  left button down
Public Const MOUSEEVENTF_LEFTUP = &H4    '  left button up

Public Sub ClickMouse()
    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub