Active form

[Aaron Young]

You can check the Forms Collection for a Certain Form, if it's there, then it's been loaded, otherwise it hasn't, ie.

Private Sub Command1_Click()
    If IsLoaded("Form2") Then MsgBox "Form2 Is Already Loaded"
End Sub

Private Function IsLoaded(ByVal sFormName As String) As Boolean
    For Each Form In Forms
        If LCase(Form.Name) = LCase(sFormName) Then
            IsLoaded = True
            Exit For
        End If
    Next
End Function

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]