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