Imports System.ComponentModel
Public Class ClassWithProperty
Private _Expandy As ExpandyClass
Public Sub New()
_Expandy = New ExpandyClass()
End Sub
Public Property Expandy() As ExpandyClass
Get
Return _Expandy
End Get
Set(ByVal Value As ExpandyClass)
_Expandy = Value
End Set
End Property
End Class
<TypeConverter(GetType(ExpandableObjectConverter))> _
Public Class ExpandyClass
Private _Variable1, _Variable2 As Integer
Public Property Variable1() As Integer
Get
Return _Variable1
End Get
Set(ByVal Value As Integer)
_Variable1 = Value
End Set
End Property
Public Property Variable2() As Integer
Get
Return _Variable2
End Get
Set(ByVal Value As Integer)
_Variable2 = Value
End Set
End Property
End Class