PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT cboimportriskcosts AS combobox WITH ; Height = 24, ; Left = 36, ; Top = 60, ; Width = 100, ; Name = "cboImportRiskCosts" ADD OBJECT lblimportriskcosts AS label WITH ; Caption = "Label1", ; Height = 17, ; Left = 240, ; Top = 60, ; Width = 40, ; Name = "lblImportRiskCosts" ADD OBJECT check1 AS checkbox WITH ; Top = 156, ; Left = 120, ; Height = 17, ; Width = 60, ; Alignment = 0, ; Caption = "", ; ControlSource = "Thisform.cboImportRiskCosts.Enabled", ; Name = "Check1" PROCEDURE setlabelenabled WITH Thisform .lblImportRiskCosts.Enabled = .cboImportRiskCosts.Enabled ENDWITH ENDPROC PROCEDURE Init =BINDEVENT( Thisform.cboImportRiskCosts, "Enabled", Thisform, "SetLabelEnabled" ) ENDPROC ENDDEFINE