FormIsLoad

sub IsLoaded(strCaption)
Dim i%
For i% = 0 To Forms.Count -1
If (Forms(i%).Caption =strCaption) Then
Msgbox "The form/window is loaded"
Else
Msgbox "the form isn't loaded"
End If
Next i%
End Sub