VB中插入超链接

打开一个工程，添加一个Label。（这里的名字是Label5，我以前写好的小程序）Label的名字可以自己随便写。（这里的是XX工作室）

修改字体颜色为蓝牙首先点击ForeColor右侧的颜色代码，在下面颜色代码中选择蓝色

然后给字体添加下划线首先点击宋体旁边的（...）然后下划线上面打钩。（一般超链接都有，所以俺们也得照葫芦画瓢）

添加库函数申明以下为函数申明（请完整复制，不然可能会出现错误）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

然后双击你添加的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

我们来试一试效果，点击它，直接调用系统的默认浏览器（网上很多代码是调用IE的，别人用着会不方便，这个代码比较好）