如何在窗体上放一个超鏈接？

Question

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 Long
ShellExecute 0, "open", "http://zyl910.yeah.net", vbNullString, vbNullString, 3

Answer 1

Shell "rundll32.exe url.dll,FileProtocolHandler http://www.csdn.net"

Answer 2

Private Sub Label4_Click()
Dim htm
htm = ShellExecute(0&, vbNullString, "http://www.sohu.com", vbNullString, vbNullString, vbNormalFocus)
End Sub
Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.ForeColor = &HC00000
Label4.Font.Underline = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &H0&
 Label4.ForeColor = &H0
 Label4.Font.Underline = False
End Sub

Answer 3

Public 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 Long
    
    ShellExecute(Me.hwnd, vbNullString, "http://www.sina.com.cn", 
    vbNullString, vbNullString, 1)