Define Class MyClass As Relation OlePublic procedure init endproc procedure MyTest return 1 + 1 endproc enddefine
objVar = createobject("MyClass") lResult = objVar.MyTest