Option Explicit
 
Private Sub Command1_Click()
    'Schlüssel-Infos zu Zeile 5 ausgeben
    DisplayKeyInfo
    'Grid in Datei speichern
    If Not sevGrid1.SaveToFile(App.Path & "\tmpData.txt") Then
        MsgBox "FEHLER BEIM SPEICHERN!"
        Exit Sub
    End If
    MsgBox "Der Grid-Inhalt wurde unter Verwendung der SaveToFile-Methode in" & _
      "eine Datei gespeichert." & _
            vbLf & "Nun wird die ReadFromFile-Methode aufgerufen..."
    'Grid aus Datei füllen
    If Not sevGrid1.ReadFromFile(App.Path & "\tmpData.txt") Then
        MsgBox "FEHLER BEIM LADEN!"
        Exit Sub
    End If
    'Erneut Schlüssel-Infos zu Zeile 5 ausgeben
    DisplayKeyInfo
End Sub
 
Private Sub Form_Load()
    Dim i As Long
 
    With sevGrid1
        .DataMode = Mode_List
        .AllowEdit = False
        .ColumnAdd "Spalte1", "Spalte1"
        For i = 1 To 10
            .AddItem "Item " & CStr(i), , , "Key" & CStr(i)
        Next i
    End With
End Sub
 
Private Sub DisplayKeyInfo()
    Dim msgtxt As String
 
    msgtxt = "Zeile 5 hat folgenden Schlüssel: " & sevGrid1.ListItems(5).Key
    msgtxt = msgtxt & vbLf & ".GetRow(""Key5"", False) liefert: " & _
      sevGrid1.GetRow("Key5", False)
    MsgBox msgtxt
End Sub

Immer noch auf der Suche nach dem "Tu's trotzdem"-Button...