' Controls: Frame, FlexGrid, ListBox, PictureBox
Private Spalte&, flgListe As Boolean
 
Private Sub Form_Load()
  Call FillGrid
End Sub
 
Private Sub MSFlexGrid1_Click()
  With MSFlexGrid1
    If .MouseCol = Spalte And .MouseRow = 0 Then
      flgListe = Not flgListe
      If flgListe = True Then
        List1.Move .ColPos(Spalte + 1), 0
        List1.ZOrder vbBringToFront
      End If
      Call SetStatus(flgListe)
      List1.Visible = flgListe
      .Row = .FixedRows
    End If
  End With
End Sub
 
Private Sub MSFlexGrid1_Scroll()
  If flgListe = True Then
    List1.Visible = MSFlexGrid1.ColIsVisible(Spalte)
    If List1.Visible = True Then List1.Move MSFlexGrid1.ColPos(Spalte + 1), 0
  End If
End Sub
 
Private Sub FillGrid()
  Dim i&, j&
 
  Spalte = 4
  Randomize
  flgListe = False
  Me.ScaleMode = vbPixels
  With List1
    .Visible = False
    .Clear
    Set .Container = Frame1
    For i = 1 To 20
      .AddItem "Wert " & i
    Next i
  End With
  With MSFlexGrid1
    .Redraw = False
    Frame1.Move .Left, .Top, .Width, .Height
    Set .Container = Frame1
    .Move 0, 0
    .Rows = 100
    .Cols = 24
    For i = 0 To .Rows - 1
      For j = 0 To .Cols - 1
        .TextMatrix(i, j) = Int(Rnd * 10000#)
      Next j
    Next i
    .RowHeight(0) = 32 * Screen.TwipsPerPixelY
    .Row = 0
    .Col = Spalte
    .CellAlignment = flexAlignRightCenter
    .CellPictureAlignment = flexAlignLeftCenter
    .Text = "Beispiel"
    .Row = .FixedRows
    .Col = .FixedCols
    .ScrollTrack = True
    .Redraw = True
  End With
  With Picture1
    .Visible = False
    .BorderStyle = vbBSNone
    .ScaleMode = vbPixels
    .BackColor = MSFlexGrid1.BackColorFixed
    .FontSize = 16
    .FontName = "Wingdings"
    .Move 0, 0, 4 + .TextWidth("W"), .TextHeight("W")
    .AutoRedraw = True
  End With
  Call SetStatus(False)
End Sub
 
Private Sub SetStatus(H1 As Boolean)
  Picture1.Cls
  Picture1.Print Chr$(IIf(H1, 254, 111))
  With MSFlexGrid1
    .Row = 0
    .Col = Spalte
    Set .CellPicture = Picture1.Image
  End With
End Sub

Gruss,

Zardoz