MyBase.New(k_id, kname, kfirma, ktel, kemail, anred_id)

Public Class Kontakt_Treenode : Inherits TreeNode
 
    Private k_id As Integer
 
    Public Sub New(ByVal kontakt_id, ByVal name, ByVal firma, ByVal tel, _
                   ByVal email, ByVal anr_id)
        Me.k_id = kontakt_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
 
// usw.