nice grafix

Private Sub cmdDraw_Click()
Dim r As Byte
Dim g As Byte
Dim b As Byte
Dim rI As Integer
Dim gI As Integer
Dim bI As Integer
Dim i As Integer
Dim ii As Integer
Randomize Timer
r = Int(Rnd * 2)
g = Int(Rnd * 4)
b = Int(Rnd * 6)
For i = 1 To 400 * 15 Step 15
 For ii = 1 To 200 * 15 Step 15
  Picture1.PSet (i, ii), RGB(r, g, b)
  rI = r + 1 + Int(Rnd * 3)
  If rI > 255 Then r = rI - 255 Else r = rI
  gI = g + 2 + Int(Rnd * 4)
  If gI > 255 Then g = gI - 255 Else g = gI
  bI = b + 3 + Int(Rnd * 5)
  If bI > 255 Then b = bI - 255 Else b = bI
 Next ii
Next i
End Sub