Imports System.ComponentModel
 
Public Class UserControl1
 
    <TypeConverter(GetType(ExpandableObjectConverter))> _
    Public Class BereichDef
        Private _von As Byte
        Private _bis As Byte
        Private _farbe As Color
        Public Property Von() As Byte
            Get
                Return _von
            End Get
            Set(ByVal value As Byte)
                _von = value
            End Set
        End Property
        Public Property Bis() As Byte
            Get
                Return _bis
            End Get
            Set(ByVal value As Byte)
                _bis = value
            End Set
        End Property
        Public Property Farbe() As Color
            Get
                Return _farbe
            End Get
            Set(ByVal value As Color)
                _farbe = value
            End Set
        End Property
    End Class
 
    Private pGutBereich As New BereichDef
 
    <EditorBrowsable(EditorBrowsableState.Always)> _
    <Browsable(True)> _
    <DesignerSerializationVisibility( _
     DesignerSerializationVisibility.Content)> _
    Public Property GutBereich() As BereichDef
        Get
            Return pGutBereich
        End Get
        Set(ByVal value As BereichDef)
            pGutBereich = value
        End Set
    End Property
 
End Class

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov