如何给我的标题加一个链接？

Question

如题

Answer 1

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Sub label1_Click()
    ShellExecute Form1.hwnd, "Open", "http://www.sina.com.cn", 0, 0, 0
End Sub在设置一下鼠标移进移出的效果就行了
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.ForeColor = vbRed
    Label1.FontUnderline = True
    Label1.MousePointer = 99 '使用自定义图标类型
End Sub

Answer 2

Private Sub Form_Load()
    Label1.Alignment = 2
    Label1.ForeColor = vbBlue
    Label1.Caption = "www.csdn.net"
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.ForeColor = vbBlue
End SubPrivate Sub Label1_Click()
    Shell "Explorer http://" & Label1.Caption, vbHide
End SubPrivate Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.ForeColor = vbRed
End Sub