Nevermind, I figured it out.

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


[ 07. November 2002, 23:05: Message edited by: Chris S. ]