code:

---

Break On CLS

;---------------------------------------------------------------------------
; Main Form
;---------------------------------------------------------------------------
$frmMain = CreateObject("Kixtart.Form")
$frmMain.Size = 300,220
$frmMain.Text = "Using KiXforms build "+$frmMain.Build
 
$prgCPU = $frmMain.ProgressBar
$prgCPU.ScaleHeight = 50
$prgCPU.ScaleWidth = 50
$prgCPU.Top = 5
$prgCPU.Left = 5
$prgCPU.ForeColor = Lawngreen
$prgCPU.BackColor = Black
$prgCPU.BorderStyle = 1
$prgCPU.Orientation = 1
$prgCPU.Style = 1
$prgCPU.Max = 100
 
$picCPU = $frmMain.PictureBox
$picCPU.ScaleHeight = 50
$picCPU.ScaleWidth = 200
$picCPU.ForeColor = Green
$picCPU.BackColor = Black
$picCPU.Top = $prgCPU.Top
$picCPU.Left = $prgCPU.Right + 5
For $y=10 to 50 step 10
	$picCPU.Line(0,$y,200,$y)
Next
For $x=10 to 200 step 10
	$picCPU.Line($x,0,$x,50)
Next
 
$picCPU.ForeColor = Lawngreen
 
$frmMain.Center
$frmMain.Show
 
While $frmMain.Visible 
	for $x = 0 to 199
		$y=rnd(100)
		$prgCPU.Value = $y
		$picCPU.Line($x,50,$x,50-$y/2)
		sleep 0.1
	next
	$nul=Execute($frmMain.DoEvents)
Loop
 
Exit(1)

---

code:

---

While $frmMain.Visible 
	$y1=50
	for $x = -5 to 199 step 5
		$y=rnd(100)
		$y2=50-$y/2
		$prgCPU.Value = $y
		$picCPU.Line($x,$y1,$x+5,$y2)
		$y1=$y2
		sleep 0.5
	next
	$nul=Execute($frmMain.DoEvents)
Loop

---

code:

---

$py = 0
While $frmMain.Visible 
	for $x = 0 to 199
		$y=rnd(100)
		$prgCPU.Value = $y
		$y = 50-$y/2
		$picCPU.Line($x-1,$py,$x,$y) ; inverse
		sleep 0.1
		$py = $y
	next
	$nul=Execute($frmMain.DoEvents)
Loop

---