怎么样做超级链接？

[forise]

是这样， 我在程序中做了一个ABOUT窗体，点击EMAILTO：[e-mail]标检
可以把OUTLOOK打开，收件人为[e-mail]，点击HTTP://www.yahoo.com
可以把YAHOO网站打开？

[jerrycao]

用一个Label,在其click事件中调用api函数ShellExecute,具体参数在Msdn上有详细解释

[prefix]

窗体的声明部分：
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(Me.hwnd, vbNullString, "mailto:[e-mail]", vbNullString, vbNullString,0&)
http的使用：
ShellExecute(Me.hwnd, vbNullString,"http://www.yahoo.com", vbNullString, vbNullString,0&)

[prefix]

哦，如果没有一个long型的变量接收返回值，应该把 ShellExecute 后的一对括号去掉。

[prefix]

窗体的声明部分：
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 Me.hwnd, vbNullString, "mailto:[e-mail]", vbNullString, vbNullString,0&
http的使用：
ShellExecute Me.hwnd, vbNullString,"http://www.yahoo.com", vbNullString, vbNullString,0&

[forise]

我想在鼠标移动到label上就变成蓝色，当鼠标移走再变回来!

[xtra]

在Form_MouseMove事件中加入：
If X < Label1.Left + Label1.Width And X > Label1.Left And Y < Label1.Height + Label1.Top And Y > Label1.Top Then
Else
Label1.ForeColor = vbBlack
End If
在Label1_MouseMove事件中加入：
Label1.ForeColor = vbBlue