1、在Visual Basic 中打开一个标签
2、打开代码窗口，定义声明：Public s鲻戟缒男y As StringPrivate Declare Function ShellExecute Lib &鳎溻趄酃quot;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
3、双击标签工具，进入代码窗口ShellExecute hWnd, "open", "在这里输入您的链接", vbNullString, vbNullString, conSwNormal