puoi usare l'activeform....
praticamente...
questa funzione mi serviva per aprire un form nell'mdi solo che controllavo se ne esistevano altri..quindi chiudevo gli altri form..

credo ti possa essere utile..

codice:
Public Function ControlloForm(FormC As String) As String
Dim FormContr As Form
    Set FormContr = FrmPrincipale.ActiveForm
    If Not FormContr Is Nothing Then Unload FormContr
End Function
ciao