Structure DeineStruct
  Dim Wert1 As Integer
  Dim Wert2 As String
  Sub NEw(Wert1 As Integer,Wert2 As String)
    Me.Wert1 = Wert1
    Me.Wert2 = Wert2
  End Sub
End Structure
Property DieProp() As DeineStruct
Get
  Return New DeineStruct(12,"hallo")
End Get
Set...
End Set