Public Class BereichDef
    Public von As Byte
    Public bis As Byte
    Public Farbe As Color
End Class

#Region "Property => GutBereich "
    ''' <summary>
    ''' Private Variable zur Property GutBereich 
    ''' </summary>
    ''' <remarks></remarks>
    Private pGutBereich As New BereichDef
 
    <EditorBrowsable(EditorBrowsableState.Always)> _
    <Browsable(True)> _
    <TypeConverter( _
    GetType(BereichDef))> _
    <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 Region

LongriLedBar1.GutBereich.bis = 20

__________________________________________________________________________
Ein Programmierer ist eine Maschine die Koffein in Programmcode umwandelt!
Und Bier in Bug?s

May the source code be with you.