vb 字体超链接

添加一个Label1，把ForeColor属性设置为蓝色，Font属性设置下划线。
双击它，加入代码：
Shell "Explorer.exe ""http://www.baidu.com"""

但这样将使用IE打开而不是使用默认的浏览器，如果想使用默认的浏览器，那么在所有代码的顶端加入：
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
Private Const SW_SHOWNORMAL = 1

然后把Label1的Click事件代码改成：
ShellExecute 0, "Open", "http://www.baidu.com", "", "", SW_SHOWNORMAL