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

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

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

如何实现，谢谢大家！
------解决思路----------------------
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 Sub


FormA子窗体：

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 Sub

2个窗体中的timer1.interval=1000