>public oForm >oForm = CREATEOBJECT("myForm") >oForm.Show() >DEFINE CLASS myForm as FORM > ADD OBJECT lab AS label WITH left=50,top=10,Caption='=' > > ADD OBJECT cmd as commandbutton WITH top=40 > > PROCEDURE cmd.Click > ON ERROR MESSAGEBOX("Trap in Error") > TRY > thisform.lab.Caption='=' > CATCH > MESSAGEBOX("Trap in Catch") > ENDTRY > ON ERROR > PROCEDURE cmd.Error > PARAMETERS nError, cMethod, nLine > MESSAGEBOX("Trap in Event") >ENDDEF >>