ShellExecute HELP !@!@!@!@!@

[GoA_TrancE]

i need to shell .exe file with ShellExecute,but i am stupid and i dont know how to do it
if some1 can help me and gimme example will be great for me

[paralinx]

Private Declare Function ShellEx Lib "shell32.dll" _ Alias "ShellExecuteA"
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal _ lpParameters As Any, ByVal lpDirectory As Any, ByVal nShowCmd As Long) As Long 
 
 
Private Sub Command1_Click() 
    Dim x 
    x = ShellEx(Form1.hwnd, "open", "path of file", "", "", 1) 
End Sub

[[anarchy]]

or...

shell("path")

[RobDog888]

Option Explicit
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Const SW_SHOWNORMAL As Long = 1
Private Const SW_SHOWMINIMIZED As Long = 2
Private Const SW_SHOWMAXIMIZED As Long = 3
 
Private Sub Command1_Click()
    On Error GoTo MyError
    Dim lRet As Long
    lRet = ShellExecute(Me.hwnd, "Open", "C:\MyApp.exe", vbNullstring, "C:\", SW_SHOWNORMAL)
    If lRet <= 32 Then
        MsgBox "Error Shelling"
    End If
    Exit Sub
MyError:
    MsgBox Err.Number & " - " & Err.Description
End Sub