code:

---

	dim $Steps

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

    $cR    = &00
    $cG    = &00
    $cB    = &00
    $c     = $cR + $cG + $cB
	$Steps = 84

    for $i = 4 to $picChoice.ClientHeight step 23
        for $j = 4 to $picChoice.ClientWidth step 23
            $picChoice.ForeColor = $c
            $picChoice.FillColor = $c
            $picChoice.Rectangle($j,$i,19,19)
            select
            	case $i + $j < $steps / 3
            		$cR = $cR + ( 255 / 84 )
            	case $i + $j > $steps / 3
            		$cG = $cG + ( 255 / 84 )
            	case $i + $j > $steps / 3 * 2
            		$cB = $cB + ( 255 / 84 )
           	endselect
           	$n = $n + 1
	        $c = $cR + $cG + $cB
        next
    next

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

---