Public Sub SaveTheList(LstViewNr1 As ListView, LstViewNr2 As ListView)
 
    On Error Resume Next
 
    For i = 1 To LstViewNr1.ListItems.Count
        LstViewNr1.ListItems(i).Key = "id" & i
    Next i
 
 
    Dim TempKey As String
    Dim TempListitem As String
 
    For Alles = 1 To LstViewNr1.ListItems.Count
 
        For i = 1 To LstViewNr1.ListItems.Count
 
            TempKey = LstViewNr1.ListItems(Alles).Key
 
            If TempKey = "id" & i Then
                LstViewNr2.ListItems.Add i, "id" & i, LstViewNr1.ListItems( _
                  i).Text
                Exit For
            End If
 
        Next i
 
    Next Alles
 
 
End Sub
 
Public Sub GetTheList(LstViewNr1 As ListView, LstViewNr2 As ListView)
 
 
    LstViewNr1.ListItems.Clear
    LstViewNr1.Sorted = False
 
    For i = 1 To LstViewNr2.ListItems.Count
        LstViewNr1.ListItems.Add i, "id" & i, LstViewNr2.ListItems(i).Text
    Next i
 
 
End Sub