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 |