Public Class Kontakt_Treenode : Inherits TreeNode
    Public Sub New(ByVal kontakt_id, ByVal name, ByVal firma, ByVal tel, _
                   ByVal email, ByVal anr_id)
        MyBase.New(k_id,kname,kfirma,ktel,kemail,anred_id)
    End Sub
    Public Property kontakt_id() As Int32
        Get
            Return k_id
        End Get
        Set(ByVal value As Int32)
            k_id = value
        End Set
    End Property
    Public Property name() As Int32
        Get
            Return kname
        End Get
        Set(ByVal value1 As Int32)
            kname = value1
        End Set
    End Property
    Public Property firma() As String
        Get
            Return kfirma
        End Get
        Set(ByVal value4 As String)
            kfirma = value4
        End Set
    End Property
Public Property tel() As String
        Get
            Return ktel
        End Get
        Set(ByVal value4 As String)
            ktel = value4
        End Set
    End Property
 
Public Property email() As String
        Get
            Return kemail
        End Get
        Set(ByVal value4 As String)
            kemail = value4
        End Set
    End Property
 
Public Property anr_id() As String
        Get
            Return anred_id
        End Get
        Set(ByVal value4 As String)
            anred_id = value4
        End Set
    End Property
End Class