Public Class tvw_art_schema : Inherits TreeNode
    Public A_ID As Integer
    Public Parrent_ID As Integer
    Public Bereich As String
    Public Ebene As Integer
    Public Bezeichnung As String
    Public Menge As Integer
    Public VP_E As String
    Public EK As Double
    Public VK As Double
    Public Bestmdst As Integer
    Public Bestist As Integer
    Public hasChild As Integer
    Public Sub New(ByVal aid As Integer, ByVal pid As Integer, ByVal ber As _
      String, ByVal ebn As Integer, ByVal bez As String, ByVal meng As Integer, _
      ByVal vpe As String, ByVal ek1 As Double, ByVal vk1 As Double, ByVal bmdt _
      As Integer, ByVal bist As Integer, ByVal hch As Integer)
        MyBase.New()
        A_ID = aid
        Parrent_ID = pid
        Bereich = ber
        Ebene = ebn
        Bezeichnung = bez
    End Sub
    Public Property prop_aid() As Int32
        Get
            Return A_ID
        End Get
        Set(ByVal value As Int32)
            A_ID = value
        End Set
    End Property
    Public Property prop_pid() As Int32
        Get
            Return Parrent_ID
        End Get
        Set(ByVal value As Int32)
            Parrent_ID = pid
        End Set
    End Property
    Public Property prop_Bereich() As String
        Get
            Return Bereich
        End Get
        Set(ByVal value As String)
            Bereich = pid
        End Set
    End Property
    Public Property prop_ebene() As Int32
        Get
            Return Ebene
        End Get
        Set(ByVal value As Int32)
            Ebene = ebn
        End Set
    End Property
    Public Property prop_bez() As String
        Get
            Return Bezeichnung
        End Get
        Set(ByVal value As String)
            Bezeichnung = bez
        End Set
    End Property
End Class

Private Sub tvw_art_afterselect(ByVal sender As Object, ByVal e As _
  TreeViewEventArgs) Handles tvw_art.AfterSelect
        TX = CType(e.Node, tvw_art_schema)
        tx_aid = TX.prop_aid
        tx_pid = TX.prop_pid
        tx_ber = TX.prop_Bereich
        tx_ebn = TX.prop_ebene
        tx_bez = TX.prop_bez
    End Sub