' Controls: Flexgrid, Picturebox
Private Sub Form_Load()
 
  Dim i&, j&, k&
 
  Randomize
  Me.ScaleMode = vbPixels
  With Picture1
    .Visible = False
    .ScaleMode = vbPixels
    .BackColor = vbWhite
    .Move 0, 0, 50, 70
    .AutoRedraw = True
  End With
 
  With MSFlexGrid1
    .Redraw = False
    .Move 4, 4, 350, 500
    .FixedRows = 0
    .FixedCols = 0
    '.GridLines = flexGridNone
    .Rows = 20
    .Cols = 3
    .RowHeight(-1) = 100 * Screen.TwipsPerPixelX
    .ColWidth(-1) = 100 * Screen.TwipsPerPixelY
    For j = 0 To .Rows - 1
      For i = 0 To .Cols - 1
        Picture1.Cls
        Picture1.Line (0, 0)-(Picture1.ScaleWidth - 1, Picture1.ScaleHeight - _
          1), vbBlack, B
        For k = 1 To 10
          Picture1.Line -(Rnd * Picture1.ScaleWidth, Rnd * _
            Picture1.ScaleHeight), Rnd * &HFFFFFF
        Next k
        .Row = j
        .Col = i
        .CellPictureAlignment = flexAlignCenterTop
        Set .CellPicture = Picture1.Image
        .CellAlignment = flexAlignLeftBottom
        .Text = "Titel " & (j * .Cols + i + 1)
      Next i
    Next j
    .ScrollTrack = True
    .Redraw = True
  End With
 
End Sub

Gruss,

Zardoz