Titre: Lance fichier.

Description:

Lance fichier avec Shell.

Le code:

 
Private Sub Command1_Click()
Dim RetVal
RetVal = Shell("C:\WINDOWS\system32\calc.exe", 1)
End Sub