' Controls: Frame, FlexGrid, ListBox
Private XPos&, YPos&, Spalte&
 
Private Sub Form_Load()
  Call FillGrid
End Sub
 
Private Sub MSFlexGrid1_Click()
  With MSFlexGrid1
    YPos = .MouseRow
    XPos = .MouseCol
    If XPos = Spalte And YPos = 0 Then
      If .TextMatrix(0, Spalte) = Chr$(111) Then
        .TextMatrix(0, Spalte) = Chr$(254)
        List1.Move .ColPos(XPos + 1), .RowPos(YPos)
        List1.Visible = True
        List1.ZOrder vbBringToFront
      Else
        .TextMatrix(0, Spalte) = Chr$(111)
        List1.Visible = False
      End If
      .Row = .FixedRows
    End If
  End With
End Sub
 
Private Sub MSFlexGrid1_Scroll()
  With MSFlexGrid1
    If .TextMatrix(0, Spalte) = Chr$(254) Then
      If .ColIsVisible(Spalte) = True Then
        List1.Move .ColPos(XPos + 1), .RowPos(YPos)
        List1.Visible = True
      Else
        List1.Visible = False
      End If
    End If
  End With
End Sub
 
Private Sub FillGrid()
  Dim i&, j&
 
  Spalte = 4
  Randomize
  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
    .CellFontSize = 16
    .CellFontName = "Wingdings"
    .Text = Chr$(111)
    .Row = .FixedRows
    .Col = .FixedCols
    .ScrollTrack = True
    .Redraw = True
  End With
 
End Sub

Gruss,

Zardoz