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