VB中插入超链接

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的，别人用着会不方便，这个代码比较好）