You're welcome.

>Thanks - work so fine like this example that I write to test.
>
>

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