code:

---

Break On
 
$frmDialog1 = createobject("Kixtart.Form")
$frmDialog1.Size = 490,160
$frmDialog1.Caption = "Select Colors"
 
$picChoice = $frmDialog1.PictureBox(,5,30,473,88)
$picChoice.DrawWidth = 1 ; pixels
$picChoice.FillStyle = 1 ; solid
 
For $b = 0 to 255 Step 51
 For $g = 0 to 255 Step 51
  For $r = 0 to 255 Step 51
   $$picChoice.FillColor = ($b*256*256)+($g*256)+$r
   $$picChoice.Rectangle($Left,$Top,14,15)
   $Left = $Left + 13
   if $Left = 468
    $Left = 0
    $Top = $Top + 14
   EndIf
  Next
 Next
Next
 
$frmDialog1.Center
$frmDialog1.Show
while $frmDialog1.Visible
$ = execute($frmDialog1.DoEvents)
loop
 
Exit 1

---