Private Declare Function ShellExecuteA Lib "shell32" (ByVal hwnd As Long, ByVal LPFile As String, ByVal PathFile As String, ByVal Other As String, ByVal Other2 As String, ByVal Param As Long) As Long Private Sub Command1_Click() ShellExecuteA 0, "Open", "http://www.vbfrance.com", "", "", 10 End Sub
Shell "Calc.exe"
Shell "C.exe"