How do you make the mouse click/dbl-click outside of a VB form?

[Doc Scheinder]

How do you make the mouse click/dbl-click outside of a VB form, like on the desktop? In otherwords how can I make the mouse click on desktop icons and/or start menu applications?

[Vlatko]

Use the keyboard_event API Function.

[oetje]

http://vbapi.com/ref/m/mouse_event.html

Try the following

Private 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
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
    x As Long
    y As Long
End Type
Private Const MK_LBUTTON = &H1
Private Const WM_LBUTTONDBLCLK = &H203


Private Sub Command1_Click()
    Dim PT As POINTAPI
    Dim Wnd As Long
    
    'Set the cursor position
    SetCursorPos (Me.Top / 32) + 100, (Me.Left / 32) + 100
    'Retrieve the cursor position
    GetCursorPos PT
    'Get the hWnd the mouse is over
    Wnd = WindowFromPoint(PT.x, PT.y)
    'Send a message to double click it
    PostMessage Wnd, WM_LBUTTONDBLCLK, MK_LBUTTON, 0
End Sub

Private Sub Form_DblClick()
    MsgBox "You double clicked the Form"
End Sub