codice:
Private Sub Command1_Click() 
  Shell("C:\Programmi\Internet Explorer\IEXPLORE.EXE http://www.virgilio.it", _
        & AppWinStyle.NormalFocus) 
End Sub