17ddg01

Modulel

333

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 ¹ Quit function once form has

End If

Run-lime error '438':

Next

End Function

Objęci doesn'1 supporl Ihis properly or melhod

Continue

End