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) & "新增订货单" & pts(1) & ",请审核!"
        .Controls("Label2").Text = pts(0) \'将发货单主健设置为Label2的标题
    End With
End If

上述代码在系统空闲的时间检查fhs集合，判断是否有新的审核申请；如果有新的申请且审核申请提示窗口未显示，则显示集合中的第一个审核申请，并将其从集合中移除。
当张三一次性开了很多个订单，李四打开系统会弹出第一个需要审核的订单，弹出的消息李四不关闭的话会一直显示，当李四不关闭弹出的消息框，然后直接关闭系统，那么李四第二次打开系统的时候，之前张三开的那些订单的消息还能继续弹出来不？目前测试的时候是不能弹出来了，能不能实现这样的，当李四打开系统后，会弹出第一个需要审核的消息，李四不关闭消息窗口，直接关闭系统，等李四再次打开系统会，继续从第二个消息开始继续弹出。