Public Shared Function baum_erstellen_DB()
 
        Dim tmp_baum As New System.Windows.Forms.TreeView
 
        Dim dt_ktg As New DataTable
        Dim BAUM_ID As Integer
        Dim tn As TreeNode
        Dim sql As String
 
        dt_ktg = baum()     'Siehe Funktion baum()
 
 
        '**********************************************************************
        ' ************
        'Hier wird der Baum erstellt
        Dim dr_mod() As DataRow = dt_ktg.Select("ELTERN=" & 9999, "TEXT")
 
        For Each r As DataRow In dr_mod
 
            tn = New TreeNode(r("TEXT").ToString)
            BAUM_ID = r("BAUM_ID")
            tn.Tag = "-" & BAUM_ID
            Dim dr() As DataRow = dt_ktg.Select("ELTERN=" & BAUM_ID, "TEXT")
 
            For Each _r As DataRow In dr
                Dim der As TreeNode
                der = tn.Nodes.Add(_r("TEXT"))
                der.Tag = _r("BAUM_ID")
            Next
            tmp_baum.Nodes.Add(tn)
        Next
 
        Dim myTreeNodeCollection As TreeNodeCollection = tmp_baum.Nodes
        Dim myTreeNodeArray(tmp_baum.Nodes.Count - 1) As TreeNode
        tmp_baum.Nodes.CopyTo(myTreeNodeArray, 0)
        tmp_baum.Nodes.Clear()
        Return myTreeNodeArray
        '**********************************************************************
        ' ************
 
    End Function

 
System.Windows.Forms.MenuItem

 
Property Tag() as Integer
     Get
          Return Tag
     End Get
 
     Set (wert as Integer)
         Tag = wert
     End Set
End Property