主题：计划代码写法

这个代码是一个计划信息窗口代码，我怎么才能让它提示后就如果还没看那它就别再弹提示窗口了。我这个是设定5分钟提示一次的，结果前面那个提示窗口还没来得及打开看它就要来一个了。怎么才能让它在弹出提示窗口后就停止计划，待关闭后再重新执行？

Dim id As Integer = DataTables("信息表").Compute("Max(_Identify)")
Dim Filter As String = "[_Identify] > " & id
DataTables("信息表").AppendLoad(Filter, False)
Dim dr As DataRow = DataTables("信息表").Find("接收者 = '" & _UserName & "' And 接收时间 Is Null")
If dr IsNot Nothing Then
    MessageBox.Show("您有信息,请接收!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Forms("信息接收窗口").Open
End If

谢谢

这样不对哦，因为我先是弹出提示窗口然后才会弹出要打开的窗口哦。

所以，在信息窗口没打开之前它还是在不断打开提示窗口哦。