code:

---

break on cls

$frm = createobject("kixtart.form")
$frm.caption = "ThreeState"
$chk = $frm.CheckBox("Hello",10,10,100,20)
$chk.ThreeState = true
$frm.Show

while $frm.visible
    $=execute($frm.Doevents)
loop

quit

---