Option Explicit
 
Private Sub flx_MouseMove(Button As Integer, Shift As Integer, x As Single, y _
  As Single)
    If Button <> vbLeftButton Then Exit Sub
    If flx.Row = flx.MouseRow Then
        Exit Sub
    Else
        flx.Row = flx.MouseRow
        flx.RowSel = flx.MouseRow
    End If
End Sub
 
Private Sub Form_Load()
    Dim r As Long
    Dim c As Long
 
    flx.FixedCols = 0
    flx.FixedRows = 0
    flx.AllowBigSelection = False
    flx.SelectionMode = flexSelectionByRow
    flx.Rows = 10
    flx.Cols = 3
 
    For c = 0 To flx.Cols - 1
        For r = 0 To flx.Rows - 1
            flx.TextMatrix(r, c) = CStr(r) + CStr(c)
        Next r
    Next c
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1