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") ENDDEFIs not possible trap "Syntax Error".