code:

---

 break on cls

$form = createobject("Kixtart.form")

$listbox = $form.ListBox("")
$listbox.Size=110,255
$listbox.Location=15,80
$listbox.BorderStyle=1
$ListBox.default = 1

$listbox.AddItem("My Item")
$ListBox.AddItem("My next Item")
$listbox.OnClick = "ShowItem($$listbox.List($$Listbox.ListIndex))"

$text = $form.Label($Item,140,80,200,16)
$text.BackColor = 255,255,255

$form.show

while $Form.visible
    $= execute($Form.DoEvents())
loop

quit()

function ShowItem($item)
    $Text.Caption = $item
endfunction 

---