Execute by WinExec

'Execute by WinExec

Private Declare Function WinExec
Lib "kernel32" _

(ByVal lpCmdLine As String,
ByVal nCmdShow As Long)
As Long


Private Sub Form_Load()

'Execute explorer.exe

WinExec "Explorer.exe c:\", 10

End Sub