Imports System.Windows.Forms
Imports System.Drawing
Imports System.ComponentModel
 
Public Class ButtonClass
    Inherits Button
    Private _Colors As New ColorsProperties2
 
    <CategoryAttribute("Design"), _
    RefreshProperties(RefreshProperties.All), _
    DisplayName("Colors"), _
    Description("Some Coolors")> _
    Public Property ColorProperty() As ColorsProperties2
        Get
            Return _Colors
        End Get
        Set(ByVal value As ColorsProperties2)
            _Colors = value
            Invalidate()
        End Set
    End Property
 
    <TypeConverter(GetType(ExpandableObjectConverter))> _
    Public Class ColorsProperties2
        Public _UColors As New UnderColors2
 
        <CategoryAttribute("Colors"), _
        RefreshProperties(RefreshProperties.All), _
        DisplayName("SubColors"), _
        Description("Color Group")> _
        Public Property ColorProperty() As UnderColors2
            Get
                Return _UColors
            End Get
            Set(ByVal value As UnderColors2)
                _UColors = value
            End Set
        End Property
 
    End Class
 
    <TypeConverter(GetType(ExpandableObjectConverter))> _
    Public Class UnderColors2
        Public _Col1 As Color
        Public _Text As String
 
        Public Property Color1 As Color
            Get
                Return _Col1
            End Get
            Set(value As Color)
                _Col1 = value
            End Set
        End Property
        Public Overrides Function ToString() As String
            Return String.Format("")
        End Function
     End Class
 
End Class