Private Sub Form_Load()
  Dim x1%, y1%, k%, Zeilen%, Spalten%
 
  Randomize
  k = 20 ' Kästchengröße Pixel
  Zeilen = 8
  Spalten = 30
  Me.ScaleMode = vbPixels
  With Picture1
    .ScaleMode = vbPixels
    .Move 10, 10, k * Spalten + .Width - .ScaleWidth, _
      k * Zeilen + .Height - .ScaleHeight
    .AutoRedraw = True
    .FillStyle = vbFSSolid
    For y1 = 0 To Zeilen - 1
      For x1 = 0 To Spalten - 1
        If y1 = Zeilen - 1 Then
          .FillColor = vbWhite 'Kästchenfarbe
        Else
          .FillColor = Rnd * &HFFFFFF 'Kästchenfarbe
        End If
        Picture1.Line (x1 * k, y1 * k)-Step(k, k), vbButtonFace, B
      Next x1
    Next y1
  End With
End Sub

Gruss,

Zardoz