Simulate mouse button by use Virtual Key Codes

Public Declare Function SetActiveWindow Lib "user32" Alias "SetActiveWindow" _
(ByVal hwnd As Long) As Long
Declare Function keybd_event Lib "user32" Alias "keybd_event" _
(ByVal bVk As Byte, ByVal bScan _
As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) As Long

Const VK_LBUTTON = &H1

SetActiveWindow(8975651603260375040)
keybd_event(VK_LBUTTON, 0, 0, 0)
keybd_event(VK_LBUTTON, 0, KEYEVENTF_KEYUP, 0)