Break On
$System = CreateObject("Kixforms.System")
If Not $System
   $nul= MessageBox("KiXforms.Net Not Initiated. This Script Will Now Close.","Error",16)
   Quit()
EndIf
$nul = $System.Application.EnableVisualStyles

$Form1 = $System.Form()
$Form1.Left = 0
$Form1.StartPosition = 0  ;FormStartPosition_Manual
$Form1.Size = $System.Size(1083,329) ;(Width,Height)
$Form1.Text = "Form1"
$Form1.Top = 0

$Label1 = $System.Label()
$Label1.Font = $System.Font("Verdana",8.25,0) ;Regular
$Label1.Left = 40
$Label1.Text = "Small Verdana"
$Label1.Top = 40
$nul = $Form1.Controls.Add($Label1)

$Label2 = $System.Label()
$Label2.Font = $System.Font("Arial Narrow",12,0) ;Regular
$Label2.Left = 40
$Label2.Text = "Medium Arial"
$Label2.Top = 70
$nul = $Form1.Controls.Add($Label2)

$Label3 = $System.Label()
$Label3.Font = $System.Font("Times New Roman",20.25,0) ;Regular
$Label3.Height = 40
$Label3.Left = 40
$Label3.Text = "Large Times new roman"
$Label3.Top = 100
$Label3.Width = 310
$nul = $Form1.Controls.Add($Label3)

$Label4 = $System.Label()
$Label4.Font = $System.Font("Courier New",72,0) ;Regular
$Label4.Height = 120
$Label4.Left = 40
$Label4.Text = "Huge Courier new"
$Label4.Top = 150
$Label4.Width = 1010
$nul = $Form1.Controls.Add($Label4)

$Form1.Show  ;Displays the Form

While $Form1.Visible
   $Nul = Execute($Form1.DoEvents())
Loop
Exit 0

$system = CreateObject("kixtart.system")

If Not $System
  $nul= MessageBox("KiXtart.Net Not Initiated. This Script Will Now Close.","Error",16)
  Quit()
EndIf

$form = $system.form()
$form.top = 0
$form.left = 0
$form.width = 1024
$form.height = 768
$form.text = "TestLine.kix  WFB  " + @time + "  " +@date
$form.show

$form.drawwidth = 1

For $i = 0 to 100
   $form.line($i, $i, $i, $i)
next

While $form.visible
   $ = Execute($form.doevents())
Loop

Return
 

 
$system = CreateObject("kixtart.system")

If Not $System
  $nul= MessageBox("KiXtart.Net Not Initiated. This Script Will Now Close.","Error",16)
  Quit()
EndIf

$form = $system.form()
$form.top = 0
$form.left = 0
$form.width = 1024
$form.height = 768
$form.text = "TestLine.kix  WFB  " + @time + "  " +@date
$form.show

$form.drawwidth = 1

For $i = 0 to 100
   $form.pset($i, $i)
Next

$math = $system.math()
$pi = $math.pi
$2pi = 2.0 * $pi

Circle(200,200,50)
Ellipse(300,300,50,35)

While $form.visible
   $ = Execute($form.doevents())
Loop

Return

Function Circle($x, $y, $r)
$t = 0.0
While $t < $2pi
   $xx = $math.cos($t) * $r + $x
   $yy = $math.sin($t) * $r + $y
   $form.pset($xx,$yy)
   $t = $t + 0.01
Loop
EndFunction

Function Ellipse($x, $y, $h, $v)
$t = 0.0
While $t < $2pi
   $xx = $math.cos($t) * $h + $x
   $yy = $math.sin($t) * $v + $y
   $form.pset($xx,$yy)
   $t = $t + 0.01
Loop
EndFunction