code:

---

break on

$form = createobject("kixtart.form")
$form.fontsize = 10
$form.fontname  = "courier new"

$textbox = $form.textbox("",10,10,300,300)
$textbox.multiline = 1
$textbox.text = "Type some text in this box"

$select = $form.commandbutton("Select all",10,320)
$select.onclick = "$$textbox.selstart=0 $$textbox.sellength=len($$textbox.text) $$textbox.setfocus"

$copy = $form.commandbutton("Copy to clipboard",10,360)
$copy.onclick = "$$textbox.copy"

$form.show
while $form.visible 
 $=execute($form.doevents)
loop

exit 1

---