''放在模块顶部.
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
Private Const SW_SHOWNORMAL = 1
''调用
Dim Result
Result = ShellExecute(0, vbNullString, "tencent://Message/?websiteName=qzone.qq.com&Menu=yes&Uin=" & Me.QQ, vbNullString, vbNullString, SW_SHOWNORMAL)
If Result <= 32 Then Waiting "调用浏览器错误!"