Metti questo in un modulo e poi richiama così:
Navigate Me,"http://www.html.it"
Navigate Me,"mailto:sebamix@hotmail.com"
Navigate Me,"file:///c:\pippo\caio.html"
codice:
Public Const SW_SHOW = 1 'Dichiarazione costanti
Public 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 'Dichiarazione API
'**********************************************************************
'* Funzione utilizzata x richiama il browser o il mailer predefinito. *
'**********************************************************************
Public Sub Navigate(frm As Form, ByVal WebPageURL As String)
Dim hBrowse As Long
On Error GoTo Navigate_Err 'Istruzione per evitare errori bloccanti.
hBrowse = ShellExecute(frm.HWnd, "open", WebPageURL, "", "", SW_SHOW)
Navigate_End:
Exit Sub
Navigate_Err:
ShowError Err.Number, Err.Description, "Navigate"
Resume Navigate_End
End Sub