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

[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