Private Sub Command1_Click()
  'markierte Zeilen ermitteln
  ende = MSFlexGrid1.RowSel 'bei Auswahl von
  start = MSFlexGrid1.Row   'oben nach unten
  If start > ende Then
    start = MSFlexGrid1.RowSel 'bei Auswahl von
    ende = MSFlexGrid1.Row     'unten nach oben
  End If
  'Sicherheitsabfrage
  answer = MsgBox("Möchten Sie die Zeilen " & Str(start - 1) & _
  " bis " & Str(ende - 1) & " wirklich löschen?", _
  vbQuestion + vbYesNo, "MSFlexGrid")
  'Löschen der makierten Zeilen
  If answer = vbYes Then
    For x = start To ende
      MSFlexGrid1.RemoveItem start
    Next x
  End If
End Sub
 
Private Sub Form_Load()
  MSFlexGrid1.Rows = 1 'Zeilenanzahl auf 1 setzen
  'FlexGrid mit Testzeilen füllen
  For x = 0 To 15
    MSFlexGrid1.AddItem "test" & vbTab & "Nr." & Str(x)
  Next x
End Sub