Richiamare il browser o il mailer predefinito

Inserire in un modulo le due dichiarazioni qui sotto:

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

'*********************************************
'frm = form da dove si richiama il WEB utilizzare Me
'WebPageURL = pagina web o indirizzo di posta ettronica da richiamare
'*********************************************
Public Sub Navigate(frm As Form, ByVal WebPageURL As String)
Dim hBrowse As Long

On Error Resume Next 'Istruzione per evitare errori bloccanti.
hBrowse = ShellExecute(frm.hwnd, "open", WebPageURL, "", "", SW_SHOW)
End Sub

Nel Form inserire per esempio:

'----------------------------------------------
'Me è il form di partenza, Label1.Caption è
'una label dove ho inserito l'indirizzo URL
'completo ad es. "http://members.xoom.it/franknet"
'----------------------------------------------
 Private Sub Label1_Click()
 Navigate Me, Label1.Caption
 End Sub

'----------------------------------------------
'Me è il form di partenza, Label2.Caption è
'una label dove ho inserito l'indirizzo EMAIL
'completo ad es. "mailto:greenmarnier@usa.net"
'come oggetto dell'email ho inserito "Prova email"
'che potra essere cambiato come si vuole.
'----------------------------------------------
 Private Sub Label2_Click()
 Navigate Me, Label2.Caption & "?SUBJECT=Prova Email"
 End Sub

Testato su: Windows 98, Windows Me, Windows 2000 Professional