使用VB打开某网站

Private Sub Form_Load()

Shell "C:\Program Files\Internet Explorer\iexplore.exe" & Space(1) & "www.baidu.com", vbNormalFocus

Unload Me

End Sub