>************************************************** >*-- Form: form1 (c:\mmviscollect\dd.scx) >*-- ParentClass: form >*-- BaseClass: form >*-- Time Stamp: 01/05/06 12:57:10 PM >* >DEFINE CLASS form1 AS form > > > Top = 0 > Left = 0 > Height = 174 > Width = 375 > DoCreate = .T. > Caption = "Form1" > Name = "Form1" > > > ADD OBJECT cmdclose AS commandbutton WITH ; > Top = 120, ; > Left = 168, ; > Height = 27, ; > Width = 84, ; > Cancel = .T., ; > Caption = "\<Close", ; > Name = "cmdClose" > > > ADD OBJECT combo1 AS combobox WITH ; > RowSourceType = 1, ; > RowSource = "Value1,Value2,Value3,Value4", ; > Height = 24, ; > Left = 12, ; > StatusBarText = "I am trying to get rid of the stupid message. Click on the button to see me again. ", ; > Top = 12, ; > Width = 144, ; > Name = "Combo1" > > > PROCEDURE Load > SET STATUS bar ON > SET TALK OFF > SET NOTIFY CURSOR off > ENDPROC > > >ENDDEFINE >* >*-- EndDefine: form1 >************************************************** >