按教程step by step 设置信息提示窗口，结果提示窗口未如愿弹出。
步骤如下
QQ服务器用户表如下：
此主题相关图片如下：qq截图20160115212531.png
1.在全局代码中定义一个Public变量：
Public fhs As New List(of String)
3. QQClient.Send("公司.黄雄","+@|" & "本月应付报表已上报,请审批" & "|" & _UserName)
4.QQClient.Send("公司.吉芳","-@|" & "本月应付报表已审批" & "|" & _UserName)
"公司.黄雄"是否正确？或者应该"黄雄"？？
5.在OpenQQ客户端的MessageReceived事件中编写代码：
Dim pts() As String = e.Message.Split("|")
If pts.Length = 3 AndAlso pts(0) = "+@" '如果是申请审核消息
fhs.Add(pts(1) & "|" & pts(2))
ElseIf pts.Length = 3 AndAlso pts(0) = "-@" '如果是审核通过消息
PopMessage("本月应付报表" & "已由" & pts(2) & "审批通过!")
End If
6、在客户端项目新建一个下图所示的窗口，窗口名为“应付上报”，窗口类型设置为PopupForm：
7.在项目事件SystemIdle中加入代码：
If fhs.Count > 0 AndAlso Forms("应付上报").Opened = False Then
Dim pts() As String = fhs(0).Split("|")
fhs.RemoveAt(0)
With Forms("应付上报")
.Open()
.Controls("Label1").Text = pts(2) & "上报本月应付报表" & ",请审核!"
End With
End If
加好友 
发短信
Post By：2016/1/15 21:59:00 [只看该作者]
