Dim frm as new frmTest
frm.Show

Public Function IsSameFormLoaded(frmName As String, frm As Form) As Boolean
    Dim oForm As Form, gefunden As Boolean
 
    For Each oForm In VB.Forms
        If Not TypeName(oForm) = "MDIForm" Then
              If oForm.name = frmName Then
                  If oForm <> frm Then
                      gefunden = True
                      Exit For
                  End If
              End If
        End If
    Next
 
    IsSameFormLoaded = gefunden
End Function

If oForm <> frm Then