vb里超链接控件是哪个？(游览器不一定是ie)

复制以下代码，绝对好使。以默认浏览器打开
先在窗体上添加一个名为“label1”的label控件：
Private Sub Form_Load()
With Label1
.Caption = "www.baidu.com" '改成想要的内容
.Font.Underline = True
.ForeColor = vbBlue
End With

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbBlue
Me.MousePointer = 0

End Sub

Private Sub Label1_Click()

CreateObject("wscript.shell").run "http://www.baidu.com" '完整的网址
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbRed
Me.MousePointer = 0

End Sub