_ Public Class AvaloqDokumentWert Private strName As String Private strValue As String Public Sub New(ByVal name As String, ByVal value As String) Me.name = name Me.value = value End Sub Public Property name() As String Get Return strName End Get Set(ByVal Value As String) strName = Value End Set End Property Public Property value() As String Get Return strValue End Get Set(ByVal Value As String) strValue = Value End Set End Property End Class