************************************************** *-- 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 **************************************************