Option Explicit
 
Private Sub Command1_Click()
   Dim i As Integer
 
   With MSFlexGrid1
 
      '--Alle Zeilen durchlaufen
      For i = .Rows - 1 To 1 Step -1
 
         '--Markierte Zeile gefunen
         If .RowData(i) = True Then
            .RemoveItem (i)
         End If
      Next i
   End With
End Sub
 
Private Sub Form_Load()
   Dim i As Integer
   With MSFlexGrid1
      .Cols =5
      .Rows = 15
      For i = 1 To .Rows - 1
         .TextMatrix(i, 0) = i
      Next i
   End With
End Sub
 
Private Sub MSFlexGrid1_Click()
   Dim i As Integer
   Dim OldCol As Integer
 
   With MSFlexGrid1
      .Redraw = False
 
      '--Spalte merken
      OldCol = .Col
 
      '--Markierte Zeile merken
      .RowData(.Row) = True
 
      '--Alle Zellen der Zeile markieren
      For i = 1 To .Cols - 1
         .Col = i
         .CellBackColor = vbCyan
      Next i
 
      '--Wieder alte Spalte
      .Col = OldCol
 
      .Redraw = True
   End With
End Sub