> >Public oForm > >oForm=CreateObject("Form") >oForm.AddObject("cntButton","clsButton") >oForm.cntButton.Visible = .t. >oForm.show > >DEFINE CLASS clsbutton AS Container > Width = 78 > Height = 26 > SpecialEffect = 0 > Name = "cntbutton" > > ADD OBJECT image1 AS Image WITH ; > Picture = "c:\program files\devstudio\vfp\samples\graphics\bmps\assorted\heart.bmp", ; > Height = 22, ; > Left = 2, ; > Top = 1, ; > Width = 24, ; > Name = "Image1" > > ADD OBJECT label1 AS Label WITH ; > Caption = "Heart", ; > Height = 17, ; > Left = 37, ; > Top = 4, ; > Width = 40, ; > Name = "Label1" >ENDDEFINE > >