Imports System.ComponentModel
 
Public Class UserControl1
    Private cBack1 As Color = Color.FromArgb(255, 255, 255)
    Private cBack2 As Color = Color.FromArgb(255, 255, 255)
 
    <Category("ColorProperty"), Description("Farbe Header"), _
       Browsable(True), DefaultValue(GetType(Color), "175;210;255")> _
    Public Property ColumnHeaderBackColor() As Color
        Get
            Return cBack1
        End Get
        Set(ByVal value As Color)
            cBack1 = value
            Me.Refresh()
        End Set
    End Property
 
    <Category("ColorProperty"), Description("Farbe Footer"), _
        Browsable(True), DefaultValue(GetType(Color), "175;210;255")> _
        Public Property ColumnFooterBackColor() As Color
        Get
            Return cBack2
        End Get
        Set(ByVal value As Color)
            cBack2 = value
            Me.Refresh()
        End Set
    End Property
 
 
End Class