直接用Inet控件 Microsoft Internet Transfer Control

这就更容易了

Private Sub Form_Load()

text1.text = Inet1.OpenURL("
http://www.baidu.com

")

End Sub