Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Function PostClick(Gamehwnd As Long, x As Long, y As Long)
PostMessage Gamehwnd, WM_LBUTTONDOWN, 0, (x And &HFFFF) + (y And &HFFFF) * &H10000
PostMessage Gamehwnd, WM_LBUTTONUP, 0, (x And &HFFFF) + (y And &HFFFF) * &H10000
End Function