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
Const SWSHOWNORMAL = 1

Private Sub FormLoad()
Dim hwdApp As Long

hwdApp = ShellExecute(0, vbNullString, "Notepad.exe ", vbNullString, "C:\ ", SW_SHOWNORMAL)
MsgBox hwdApp
End Sub