使用VB打开某网站

Private Sub Form_Load()
    Shell "C:\Program Files\Internet Explorer\iexplore.exe" & Space(1) & "www.baidu.com", vbNormalFocus
    Unload Me
End Sub