>ON ERROR MESSAGEBOX(MESSAGE()) >This didn't works:
PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN ************************************************** *-- Form: form1 (d:\all_zapl\test.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 09/12/05 01:28:09 PM * DEFINE CLASS form1 AS form DoCreate = .T. Caption = ([=]) Name = "Form1" ADD OBJECT label1 AS label WITH ; Caption = ([ =]), ; Height = 17, ; Left = 39, ; Top = 6, ; Width = 40, ; Name = "Label1" PROCEDURE Init ON ERROR MESSAGEBOX(MESSAGE(),0,"TEST") thisform.Label1.Caption = [=] ENDPROC ENDDEFINE * *-- EndDefine: form1 **************************************************