* CreateTestObject.prg Procedure CreateTestObject Local loTemp loTemp = CreateObject("cusTest") Return loTemp EndProc
Define Class cusTest As Custom && (or cusbase of cusBase.fxp, etc.) EndDefine