怎样在Form上加网址连接？

Question

在Form1上加一个Label1，Caption="http://www.sina.com.cn"Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbBlue
Label1.FontUnderline = False
End SubPrivate Sub Label1_Click()
Shell "Explorer " & Label1.Caption
End SubPrivate Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbRed
Label1.FontUnderline = True
End Sub

Answer 1

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
Private Sub cmdOnline_Click()
    Dim a
    a = ShellExecute(Me.hwnd, "open", "http://www.efu.com.cn", "", App.Path, 1)
End Sub