OpenBrowse

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
Public Function LanciaBrowser(Handle as long, Indirizzo as string)
RetValue = ShellExecute(Handle, vbNullString, _
Indirizzo, vbNullString, "c:\", _
SW_SHOWNORMAL)
End Function

'Richiamare la seguente funzione per il collegamento:

'E-mail

'LanciaBrowser me.hwnd, "mailto:tuoindirizzo@email"

'Sito Internet

'LanciaBrowser me.hwnd, "http://:www.indirizzo.com"