主题：[求助]OpenQQ客户端收到信息后触发问题？

 [求助]OpenQQ客户端收到信息后希望能在右下角提示信息， 我在ReceivedMessage事件中写了以下代码，但运行时收到信息没有出现提示，如何修改呢？代码好象没题，什么原因呢？

Dim dr As DataRow = DataTables("信息").AddNew
dr("发送者") = iif(e.UserName > "",e.UserName,"服务器")
dr("时间") = Date.Now()
dr("信息") = e.Message

Dim msg As String =  "你有新的信息!"
popMessage(msg,"提示",PopiconEnum.Infomation,5)