GotoPAgeWeb

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
Private Const SW_SHOWNORMAL = 1
'Utilizzo

Sub Command1_Click()
RetValue = ShellExecute(Me.hwnd, _
vbNullString, _
"http://www.indirizzo.com", _
vbNullString, _
"c:\", _
SW_SHOWNORMAL)
End Sub