code:

---

$=createobject("kixtart.form")
$.size= 200,200
$.center

$l=$.listbox(,,,190,140)
for $c=0 to 100
$l.additem("item #$c")
next

$b=$.button("click me")
$b.size=75,25
$b.center
$b.top=150
$b.onclick="$$l.caption"
$.show
while $.visible $nul=execute($.doevents) loop

---