code:

---

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

$counter=0
dim $color[18757]
for $r=0 to (255*255*255) step 884 $color[$counter]=$r $counter=$counter+1 next
"Colors done" ?

get $

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


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

---