1、打开一个工程，添加一个Label。
（这里的名字是Label5，我以前写好的小程序）
Label的名字可以自己随便写。（这里的是XX工作室）
2、修改字体颜色为蓝牙
首先点击ForeColor右侧的颜色代码，在下面颜色代码中选择蓝色
3、然后给字体添加下划线
首先点击宋体旁边的（...）然后下划线上面打钩。
（一般超链接都有，所以俺们也得照葫芦画瓢）
4、添加库函数申明
以下为函数申明（请完整复制，不然可能会出现错误）
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
5、然后双击你添加的Label
新添代码
Call ShellExecute(hwnd, "open", "此处为你的网址", vbNullString, vbNullString, &H0)
------------------------分界线-------------------------------------
下面是我的（供参考，加上ERR判断，防止有的电脑不支持，程序崩溃）
Private Sub Label5_Click()
On Error GoTo Err
Call ShellExecute(hwnd, "open", "此处为你的网址", vbNullString, vbNullString, &H0)
Err:
End Sub
6、我们来试一试效果，点击它，直接调用系统的默认浏览器
（网上很多代码是调用IE的，别人用着会不方便，这个代码比较好）
