Dim oParent As Node
 
With TreeView1
  ' aktuell selektieres Node-Objekt löschen
  Set oParent = .SelectedItem.Parent
  .Nodes.Remove .SelectedItem.Index
 
  If Not oParent Is Nothing Then
    ' ggf. Parent löschen, falls vorhanden
    .Nodes.Remove oParent.Index
  End If
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de