INTERNET - LANCIARE INTERNET

Dim TheBrowser As Object
Set TheBrowser = CreateObject("InternetExplorer.Application")
With TheBrowser
.Visible = True
.Navigate ("http://www.indirizzo.com")
End With


'*********************************

' Q U E S T O E' M I G L I O R E

'*********************************


Private Sub Command1_Click()
Dim shell As Object
Set shell = CreateObject("shell.application")
shell.Open Text1.Text
Unload Me

End Sub