>PUBLIC oform1 > >oform1=NEWOBJECT("form1") >oform1.Show >RETURN > >DEFINE CLASS form1 AS form > > Caption = "Form1" > Name = "Form1" > > ADD OBJECT cnt3 AS cnt3 > > PROCEDURE Load > PUBLIC ARRAY dsbld(2) > dsbld(1) = "dsbld(1)" > dsbld(2) = "dsbld(2)" > PUBLIC dsbld1 > dsbld1="dsbld1" > ENDPROC > >ENDDEFINE > >DEFINE CLASS cnt3 as Container > Top = 12 > Left = 24 > Width = 144 > Height = 96 > Name = "Container1" > > ADD OBJECT text1 AS textbox WITH ; > ControlSource = "dsbld(1)", ; > Enabled = .F., ; > Left = 24, ; > Top = 12, ; > Name = "Text1" > >ENDDEFINE >Guenter,