我想问大侠怎么判断窗体已经被加载？

Question

代码如下：
dim form(100) as form
for i =1 to 100
set form(i)=new form1
next现在我想只让每个form(i)只能显示一个而不是无限循环！
也就是显示之后不能再重复出现好几个同样的！！用API如何实现不用也没关系
只要达到目的就行！！！越简单越好！！！！

Answer 1

'ture 已加载,=FALSE 未加载Function CheckFrm(FrmName As String) As Boolean
        Dim Frm As Form
        Dim RevVal As Boolean
        
        RevVal = False
        For Each Frm In Forms
            If UCase$(Frm.Name) = UCase$(FrmName) Then
               RevVal = True
               GoTo EndFun
            End If
        Next
EndFun:
        CheckFrm = RevVal
End Function

Answer 2

现在我想只让每个form(i)只能显示一个而不是无限循环！
也就是显示之后不能再重复出现好几个同样的！！
===================================================那你的代码中实例化那么多同样的窗体干嘛？