PUBLIC oform1 SET POINT TO SET SEPARATOR TO oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT text1 AS textbox WITH ; Alignment = 3, ; Value = 0.00, ; ControlSource = "m.gCurrency", ; Format = "R", ; Height = 23, ; InputMask = "999,999.99", ; Left = 156, ; Top = 60, ; Width = 100, ; Name = "Text1" PROCEDURE Load PUBLIC gCurrency gCurrency=-721.45 ENDPROC ENDDEFINEComment: Depressing.