Private Sub DeleteAuffällige()
        Dim currnode As TreeNode
        currnode = Strukturtree.Nodes(0).Nodes(0)
        DeleteNodes(currnode)
    End Sub

Public Function DeleteNodes(ByVal currnode As TreeNode) As TreeNode
        Dim nodx As TreeNode
        Do While True
            If Not currnode.FirstNode Is Nothing Then
                currnode = currnode.FirstNode
                currnode = DeleteNodes(currnode)
            End If
 
            If currnode.ImageIndex <> 5 Then
                Try
                    If currnode.FirstNode Is Nothing Then
                        If Not currnode.NextNode Is Nothing Then
                            nodx = currnode.NextNode
                            currnode.Remove()
                            currnode = nodx
                        Else
                            nodx = currnode.Parent
                            currnode.Remove()
 
                            Return nodx
                        End If
                    Else
                        If Not currnode.NextNode Is Nothing Then
                            currnode = currnode.NextNode
                        Else
                            currnode = currnode.Parent
                            Return currnode
                        End If
                    End If
                Catch
                    currnode.Remove()
                    Exit Do
                End Try
            Else
                If Not currnode.NextNode Is Nothing Then
                    currnode = currnode.NextNode
                Else
                    Return currnode.Parent
                End If
            End If
        Loop
    End Function