Una funzione che restituisce se una form é caricata 

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


Da utilizzare nel segunte modo 
If CaricaForm("Form1") > 0 Then
'Form1 é caricata una o più volte
Else
'Form1 non é caricata
End If


Spero di esservi stato d'aiuto