Private Sub flx_MouseDown(Button As Integer, Shift As Integer, x As Single, y _
  As Single)
    Dim r As Long
 
    'Wenn auf fixed-Zeile geklickt
    If y < flx.CellHeight Then Exit Sub
 
    'Letzte non-fixed Zeile geht nicht zu entfernen, nur Werte löschen
    If flx.Rows = 2 Then
        flx.TextMatrix(1, 0) = vbNullString
        flx.TextMatrix(1, 1) = vbNullString
        Exit Sub
    End If
 
    'Ansonsten Zeile removen
    r = flx.Row
    flx.RemoveItem r
End Sub
 
Private Sub Form_Load()
    Dim r As Long, c As Long
 
    'Flex initialisieren
    flx.Rows = 5
    flx.Cols = 2
    flx.FixedCols = 0
    flx.FixedRows = 1
 
    flx.SelectionMode = flexSelectionByRow
    flx.FocusRect = flexFocusNone
 
    flx.TextMatrix(0, 0) = "Spalte0"
    flx.TextMatrix(0, 1) = "Spalte1"
 
    For r = 1 To 4
        For c = 0 To 1
            flx.TextMatrix(r, c) = CStr(r) + CStr(c)
        Next c
    Next r
 
    'Zeile markieren
    flx.Col = 0: flx.ColSel = 1
End Sub

Gru? Michi aus Hannover

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