if !'FORMDEFINE.PRG'$set('PROCEDURE') > set procedure to FormDefine additive >endif >TestForm=CreateObject("oForm") >TestForm.show >read events