一个MDI程序中，当程序中没有以 SHOW 1 模式打开的子窗体时，子窗体A每小时自动打开一次，如果A窗体已处于打开状态，就勿需重新打开。如何实现，谢谢大家！

Question

1、MDI子窗体不能以模式打开；
2、参考代码：FormA每隔5秒打开一次，打开后偶数秒的时候自动关闭MDIForm1窗体：
Option Explicit
Public OpenA As Boolean
Private Sub Timer1_Timer()
    If Second(Now()) Mod 5 = 0 Then
        If Not OpenA Then FormA.Show
    End If
End SubFormA子窗体：
Option Explicit
Private Sub Form_Load()
    MDIForm1.OpenA = True ''标记已经打开
    Me.Move 0, 0
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Timer1.Enabled = False
    MDIForm1.OpenA = False ''标记已经关闭
End Sub
Private Sub Timer1_Timer()
    If Second(Now()) Mod 2 = 0 Then Unload Me
End Sub2个窗体中的timer1.interval=1000