求助！！

Question

请问如何用VB实现对文本的超级链接？

Answer 1

Private Sub Label1_Click()
    Dim RetVal As Variant
    RetVal = ShellExecute(Me.hWnd, "Open", "http://www.ins.com.cn", "", App.Path, 1)
End Sub

Answer 2

Private Sub Label1_Click()
    Dim desURL As String
    desURL=lable1.caption'或者是你想要连到的网站名称。
    Shell "c:\program files\internet explorer\iexplore.exe " & desURL
End Sub