Public Const MOUSEEVENTF_LEFTDOWN = &H2 Public Const MOUSEEVENTF_LEFTUP = &H4 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) mouse_event MOUSEEVENTF_LEFTDOWN, x, y, 0, 0 mouse_event MOUSEEVENTF_LEFTUP, x, y, 0, 0
E.B.