ThisForm.AddObject("myclass") IF TYPE("THISFORM.MyClass") = "O" MESSAGEBOX('Abject Created.') ENDIF IF VARTYPE(THISFORM.MyClass) = "O" MESSAGEBOX('Abject Created.') ENDIFTYPE("myClass") is returning "U" because it is looking for a memory variable named MyClass.