Modulel
Objęci: (General)
Proc: IsLoaded
Dim i
IsLoaded = False
For i = 0 To Forms.Count - 1_
|lf Forms (i) . FormMame = HyFormMame Therj IsLoaded = True
Exit Function 1 Quit function once form has
End If
Run-lime error '438':
Next
End Function
Objęci doesn'1 supporl Ihis properly or melhod
End