Public Class Kontakte
    Private objName As ArrayList
    Private strEmail As String
    Private strTelephone As String
 
    Public Property Name() As ArrayList
        Get
            Return objName
        End Get
        Set(ByVal value As ArrayList)
            objName = value
        End Set
    End Property
 
 
    Public Property Email() As String
        Get
            Return strEmail
        End Get
        Set(ByVal value As String)
            strEmail = value
        End Set
    End Property
 
 
    Public Property Telephone() As String
        Get
            Return strTelephone
        End Get
        Set(ByVal value As String)
            strTelephone = value
        End Set
    End Property
 
    Public Sub New()
        objName = New ArrayList
    End Sub
End Class

Dim x As New Kontakte
 
x.name.Add("Muster")