主题：[求助]自定义消息提醒窗口

求大神帮诊断一下：

我想在项目中实现自动弹窗提醒，没能成功。

1. 工作流程(借款申请)的保存事件代码：      
Dim dr As DataRow = DataTables("A01_用户信息").Find("Group = '会计'")
Dim bdnm As String = dr("Name")
Dim msg As String = "+@|" & _UserName & "|" & r("借款ID") & "|" & "临时借款申请" & "|ys@"
QQClient.Send(bdnm,msg)

2. OpenQQ客户端ReceivedMessage事件代码：

Dim msg As String = e.Message
If msg.StartsWith("+@|") Then
    Dim pts() As String  = msg.Split("|")
    fhs.Add(pts(4) & "|" & pts(1) & "|" & pts(2) & "|" & pts(3))
End If

3. 项目事件SystemIdle事件代码：

If fhs.Count > 0 AndAlso Forms("S10401-流程通知").Opened = False Then
    Dim fh As String = fhs(0)
    If fh.StartsWith("ys@|") Then
        Dim pts() As String = fh.Split("|")
        fhs.RemoveAt(0)
        With Forms("S10401-流程通知")
            .Open()
            .Controls("002-消息内容").Text = pts(1) & "新增了ID为:" & pts(2) & "的" & pts(3) & ",请您进行预审!"
        End With

    End If

End If