Function PxMDisplay($)

	dim $a, $f, $w, $h, $y, $z



	$a = CreateObject(Kixtart.Form)

	;$a.ClientSize = $[2],$[3] ; Use this line for properly sized forms  

	$a.Show(3)



	$y = 5

	$f = 255/$[4]

	if $[1]=P1

		$y = 4

		$f = 255

	endif



	$z = $[1]=P3



	for $h=1 to $[3]

		for $w=1 to $[2]

			$a.PSet($w, $h, $f*(65536*$[$y+2*$z]+256*$[$y+$z]+$[$y]))

			$y = 1 + $y + 2*$z

		next

	next

	sleep 10



	;Uncomment the lines below to keep the form on the screen

	;until closed manually.



	;While $a.Visible

 	;	$y=Execute($a.DoEvents)

	;Loop

EndFunction