Private Sub ListView7_ItemCheck2(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.ItemCheckedEventArgs) _
        Handles ListView7.ItemChecked
 
 aktuellcheckeditemscount = Me.ListView7.CheckedItems.Count - 1
 
        If Me.ListView7.CheckedItems.Count - 1 <> -1 Then
            ZwischenMassnahme = (e.Item.Text)
            AufnahmeInArraylist
            '  MsgBox(e.Item.Index)
        End If
 
        ' damit ddas item in der arraylist  wieder gelöscht wird, wenn man das 
        ' Häkchen im listview wieder entfernt
 
         If ListView7.CheckedItems.Count - 1 > -1 Then
 
            ewigerZähler = ewigerZähler + 1
 
 
              If ewigerZähler > aktuellcheckeditemscount Then
 
                ArrayListeElementAktLoeschen() 'löscht das zuletzt gespeicherte 
                ' item in der arralist
 
               ' Zähler wieder synchronisieren für´s nächste Mal
                ewigerZähler = aktuellcheckeditemscount
 
                 End If
 
        End If
 
      End Sub