code:

---

break on


    $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


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


    for $i = 0 to $picChoice.ClientWidth step 10
        for $j = 0 to $picChoice.ClientHeight step 10
            $picChoice.ForeColor = $c
            $picChoice.FillColor = $c
            $picChoice.Rectangle($i,$j,10,10)
	        $cR = $cR + ( 256 * ($picChoice.ClientWidth + $picChoice.ClientHeight) )
	        $cG = $cG + ( 256 * ($picChoice.ClientWidth + $picChoice.ClientHeight) )
	        $cB = $cB + ( 256 * ($picChoice.ClientWidth + $picChoice.ClientHeight) )
	        $c  = $cR + $cG + $cB
        next
    next


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

---