code:

---

break on

$sleep = 20

$form = createobject("kixtart.form")
$form.width = 300
$form.height = 300

$setup = $form.commandbutton("Options",,,75,25)
$setup.center
$setup.onclick = "Options()"
$setup.default = 1

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

?"sleep=" $sleep

exit 1

function options()

 dim $form,$delay,$ok,$cancel
 dim $okayed $okeyed = 0
 dim $canceled $canceled=0

 ; Changes global variable $sleep

 $form = createobject("kixtart.form")
 $form.caption = "Options"
 $form.width = 250
 $form.height = 150

 $form.printxy(20,20,"Enter delay value:")

 $delay = $form.textbox($sleep,20,40,100,20)

 $ok = $form.commandbutton("OK",150,20,75,20)
 $ok.onclick = "$$okayed=1"

 $cancel = $form.commandbutton("Cancel",150,$Ok.Bottom+10,75,20)
 $cancel.onclick = "$$canceled=1"
 $cancel.default = 1

 $form.center
 $form.show
 while $form.visible and not $okayed and not $canceled
  $=execute($form.doevents)
 loop
 if $okayed
  $sleep = val($delay.text)
 endif
endfunction

---

code:

---

Break On
 
$Form = CreateObject("Kixtart.Form")
 
$Form.Caption = "Kixforms..."
$Form.Width = 300
$Form.Height = 200
 
$Form.OnGotFocus = '$$Form.Caption = "GOT FOCUS"'
$Form.OnLostFocus = '$$Form.Caption = "LOST FOCUS"'
 
$Exit = $Form.CommandButton("Exit",,,100,25)
$Exit.OnClick = "Quit()"
 
$Exit.Center
 
$Form.Show(1)
 
While $Form.Visible
 $=Execute($Form.DoEvents)
Loop
 
Exit 1

---

code:

---

$Obj = createobject("microsoft.xmlhttp")

if @Error <> 0
	exit(@error)
endif

$obj.open("GET", "http://www.yahoo.com", -1)
$obj.send
while $obj.readystate <> 4 sleep(0.2) loop

? $obj.responsetext

---