Option Explicit
'Lancementd'unfichier quelque soit l'extension
#If Win32 Then
  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
#Else
  Private Declare Function ShellExecute Lib "shell.dll" (ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer
#End If
Private Const SW_SHOWNORMAL = 1

Private Sub Command1_Click()
Dim S1$
On Error Resume Next
S1 = "http://www.microsoft.com"
Call ShellExecute(0&, vbNullString, S1, vbNullString, vbNullString, vbNormalFocus)
End Sub