Dim iVal As Integer     'Zähler1
        Dim lCount As Integer   'Zähler2
 
        lCount = frmDST.ListView1.ListItems.Count
        'Wie viel Items habe ich im Listview?
 
        For iVal = 1 To lCount              'durchlauf alle Items
            If iVal > lCount Then Exit For  'wenn > dann fertig
 
            'Vergleich das SubItem mit dem Wert der eindeutig ist
            If frmDST.ListView1.ListItems(iVal).ListSubItems(5).Text = Node.Key _
              Then
                'Treffer, dann lösche das Item (Index)
                frmDST.ListView1.ListItems.Remove (iVal)
                iVal = iVal - 1
                lCount = lcoutn - 1
            End If
        Next