1、在Visual Basic 中打开一个标签
2、打开代码窗口，定义声明：
Public sy As String
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
3、双击标签工具，进入代码窗口ShellExecute hWnd, "open", "在这里输入您的链接", vbNullString, vbNullString, conSwNormal
