Kod:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_LBUTTONUP = &H202
Private Const WM_LBUTTONDOWN = &H201Kod:
Private Sub Command1_Click()
SendMessage 12345, WM_LBUTTONDOWN, 0, 0
SendMessage 12345, WM_LBUTTONUP, 0, 0
End Sub