'''<summary>
    '''                 Diese Funktion erstellt Knoten- und End-Punkte des 
    ' Treeviews
    '''                 anhand der gegebenen Tabelle. Die Unterpunkte werden 
    ' durch den 
    '''                 Rekursivaufruf dieser Funktion erstellt.
    '''                 Die Tabelle, auf welcher die Funktion basiert besitzt 
    ' ein ID-Feld 
    '''                 und ein ParentID-Feld. 
    '''                 Die Werte des ParentID-Feldes beziehen sich auf die ID 
    ' der selben Tabelle.
    ''' 
    '''*** Achtung:     'Prüfen und anpassen (sehr performancelastig) (Set _
      Table)
    '''</summary>
    Private Function InitTree(ByVal CurrentNode As _
      Infragistics.Win.UltraWinTree.UltraTreeNode, ByVal ID As Integer) As _
      Infragistics.Win.UltraWinTree.UltraTreeNode
        If Me.InvokeRequired Then
            Dim dd As New MeDelegateUltraTreeNodeIntegerRueckgabeUltraTreeNode( _
              AddressOf InitTree)
            Me.Invoke(dd, New Object() {CurrentNode, ID})
        Else
            Try
                Dim childNode As New Infragistics.Win.UltraWinTree.UltraTreeNode
                Dim childNodexyz As New _
                  Infragistics.Win.UltraWinTree.UltraTreeNode
 
                Dim i As Integer = 0
                Dim dv As New DataView
                dv.Table = cup_System.cls_System_Global.DS_System_Help.tblHelp
 
                dv.RowFilter = "ParentID ='" & ID & "'"
                dv.Sort = "IndexNumber"
 
                For i = 0 To dv.Count - 1
                    childNode = New Infragistics.Win.UltraWinTree.UltraTreeNode
 
                    '*** Rekursivaufruf der Funktion um untergeordnete Nodes zu 
                    ' erstellen.
                    childNode = InitTree(childNode, CType(dv.Item(i).Item( _
                      "ID"), Integer))
 
                    childNode.Key = dv.Item(i).Item("IndexDescription").ToString
                    childNode.Text = dv.Item(i).Item( _
                      "IndexDescription").ToString
                    If childNode.Nodes.Count > 0 Then
                        childNode.LeftImages.Add(Me.PictureBox1.Image)
                    End If
                    CurrentNode.Nodes.Add(childNode)
                Next
            Catch ex As Exception
                Me.Co_SystemComponent1.ErrorMail(Me.Name, New StackFrame( _
                  ).GetMethod().Name, ex, "", False, True, False, False)
            End Try
        End If
        Return CurrentNode
    End Function