' Controls: Frame, FlexGrid, ListBox
Private XPos&, YPos&
 
Private Sub Form_Load()
 
  With MSFlexGrid1
    Frame1.Move .Left, .Top, .Width, .Height
    Set .Container = Frame1
    .Move 0, 0
    .ScrollTrack = True
  End With
  List1.Visible = False
  Set List1.Container = Frame1
 
End Sub
 
Private Sub MSFlexGrid1_Click()
 
  With MSFlexGrid1
    YPos = .MouseRow
    XPos = .MouseCol
    List1.Move .ColPos(XPos), .RowPos(YPos)
  End With
  List1.Visible = True
 
End Sub
 
Private Sub MSFlexGrid1_Scroll()
 
  If List1.Visible = True Then
    List1.Move MSFlexGrid1.ColPos(XPos), MSFlexGrid1.RowPos(YPos)
  End If
 
End Sub

Gruss,

Zardoz