怎样防止出现一个From多个事例？

Question

遍历Forms集合，看该Form是否已经打开

Answer 1

'Module1
Public fHasCreated As Boolean'Form1
Private Sub Form_Initialize()
    If fHasCreated Then
       Set Form1 = Nothing
    Else
       fHasCreated = True
    End If
End Sub

Answer 2

Sorry ,上述代码不能很好的工作，你再想想

Answer 3

Function FormLoaded(ByVal frm As Form) As Boolean
   Dim i As Integer
   
   FormLoaded = False
   For i = 0 To Forms.Count - 1
      If frm Is Forms(i) Then
         FormLoaded = True
         Exit For
      End If
   Next i
End Function

Answer 4

什么意思？
如果是程序用 app.apperance
如果是在MDI窗体中 forname.visible 

Answer 5

每次都用frmX.show
而不要用set f = new frmX
       f.show