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

---

code:

---

break on

$SMALLSTARS = 30
$LARGESTARS = 15

global $smallxpos[$SMALLSTARS]
global $smallypos[$SMALLSTARS]
global $smallspeed[$SMALLSTARS]

global $largexpos[$LARGESTARS]
global $largeypos[$LARGESTARS]
global $largespeed[$LARGESTARS]

$form = createobject("kixtart.form")
$form.caption = "Starfield Simulation"
$form.backcolor = 0 ; black
$form.borderstyle = 2

$width = $form.scalewidth
$height = $form.scaleheight

srnd((-1)*@ticks) ; randomize

For $I = 1 To $SMALLSTARS 
 $SmallXPos[$I] = Rnd($WIDTH)
 $SmallYPos[$I] = Rnd($HEIGHT)
 $SmallSpeed[$I] = RND(5)+1
Next

For $I = 1 To $LARGESTARS 
 $LargeXPos[$I] = Rnd($WIDTH)
 $LargeYPos[$I] = Rnd($HEIGHT)
 $LargeSpeed[$I] = RND(10)+5
Next

$Form.Show

while $form.visible

 $= execute($form.doevents(1))

 $height = $form.scaleheight
 $width = $form.scalewidth

 For $I = 1 To $LARGESTARS
  $Form.ForeColor = 0
  $Form.Rectangle($LargeXPos[$I],$LargeYPos[$I],2,2)
  $LargeXPos[$I] = $LargeXPos[$I] - $LargeSpeed[$I]
  If $LargeXPos[$I] < -10
   $LargeXPos[$I] = $Width
   $LargeYPos[$I] = RND($Height)
   $LargeSpeed[$I] = RND(10)+5
  EndIf
  $Form.ForeColor = &0FFFFFF
  $Form.Rectangle($LargeXPos[$I],$LargeYPos[$I],2,2)
 Next

 For $I = 1 To $SMALLSTARS
  $Form.PSet($SmallXPos[$I],$SmallYPos[$I],0)
  $SmallXPos[$I] = $SmallXPos[$I] - $SmallSpeed[$I]
  If $SmallXPos[$I] < -10
   $SmallXPos[$I] = $Width
   $SmallYPos[$I] = RND($Height)
   $SmallSpeed[$I] = RND(5)+1
  EndIf
  $Form.PSet($SmallXPos[$I],$SmallYPos[$I],&0FFFFFF)
 Next

Loop

Exit 1

---