Binaryworld - Check whether a form is loaded ... [ VB -> Forms & Controls ]

You can load several instances of the same form, but VB doesn't let you determine how many forms of a given class are currently loaded. You can work around this flaw by iterating over the Forms collection:

Click here to copy the following block

' Return the number of instances of a form
' that are currently loaded

Function FormCount(ByVal frmName As String) As Long
  Dim frm As Form
  For Each frm In Forms
    If StrComp(frm.Name, frmName, vbTextCompare) = 0 Then
      FormCount = FormCount + 1
    End If
  Next
End Function

You can use the previous routine to determine whether any instance of a form is loaded, as in:

Click here to copy the following block

If FormCount("form1") > 0 Then
' Form1 is already loaded
End If