Private 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) 
Private Const MOUSEEVENTF_LEFTDOWN = &H2 
Private Const MOUSEEVENTF_LEFTUP = &H4 
Private Const MOUSEEVENTF_RIGHTDOWN = &H8 
Private Const MOUSEEVENTF_RIGHTUP = &H10 
Private Const MOUSEEVENTF_ABSOLUTE = &H8000 
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long 



Private Sub Command1_Click() 
'Simulate a double click as a quick series of two clicks 
SetCursorPos 100, 100 

'Left Click
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 

'Right Click
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0 
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0 
End Sub