Public loForm as FormTest
loForm = NewObject("FormTest")
loForm.show(1)
***
Define Class FormTest as Form
  AutoCenter = .T.
  Procedure Init as Boolean
    this.NewObject("chk", "CheckBox")
    this.chk.Left    = 10
    this.chk.Top     = 10
    this.chk.Value   = .F.
    this.chk.Visible = .T.
    ***
    this.NewObject("cbo", "ComboBox")
    this.cbo.Left    = 10
    this.cbo.Top     = 30
    this.cbo.Visible = .T.
    ***
    BindEvent(this.chk, "InteractiveChange", this, "chkChanged")
  EndProc

  Procedure chkChanged as Boolean
    this.cbo.Enabled = !this.cbo.Enabled
  EndProc && Procedure chkChanged as Boolean
EndDefine && Define Class FormTest as Form