code:

---

$frmDialog1 = createobject("Kixtart.Form")
$frmDialog1.Size = 300,250
$frmDialog1.Caption = "Select Colors"
$picChoice = $frmDialog1.PictureBox(,5,60,285,160)
$picChoice.DrawWidth = 5 ;pixels
$picChoice.FillStyle = 1 ; solid

for $r=0 to 255 step 20
 for $g=0 to 255 step 20
  for $b=0 to 255 step 20
	$color=$color+""+$r+","+$g+","+$b+" "
  next
 next
next
$color=split($color)
"Colors done" ?

get $

$counter=0
for $i = 0 to $picChoice.ClientWidth step 5
 for $j = 0 to $picChoice.ClientHeight step 5
  $picChoice.forecolor=split($color[$counter],",")
  $picChoice.Rectangle($i,$j,5,5)
  $counter=$counter+1
 next
next


$frmDialog1.Show
while $frmDialog1.Visible
$ = execute($frmDialog1.DoEvents)
loop

---