Private Sub Command1_Click() strURL = "http://www.yuncode.net" Shell "explorer.exe " & strURL, 1 End Sub