<TypeConverterAttribute(GetType(ExpandableObjectConverter))> _
Public Class MyValue
    Private pMyColor As Color
    Private pMyInteger As Integer
 
    Public Sub New()
        pMyColor = Color.Black
        pMyInteger = 0
    End Sub
 
    Public Property BorderColor() As Color
        Get
            Return pMyColor
        End Get
        Set(ByVal value As Color)
            pMyColor = value
        End Set
    End Property
 
    Public Property BorderWidth() As Integer
        Get
            Return pMyInteger
        End Get
        Set(ByVal value As Integer)
            If value < 0 Then value = 0
            pMyInteger = value
        End Set
    End Property
 
    Public Overrides Function ToString() As String
        Return Me.BorderColor.ToString & " ; " & Me.BorderWidth
    End Function
End Class
<TypeConverterAttribute(GetType(ExpandableObjectConverter))> _
Public Class MySelectBackColor
    Private selectBackcolor As Color
    Private unselectbackcolor As Color
    Private selectbordercolor As Color
    Private selectborderwidth As Single
 
    Public Sub New()
        selectBackcolor = Color.White
        unselectbackcolor = Color.White
        selectbordercolor = Color.White
        selectborderwidth = 1
    End Sub
 
    Public Property SelectedBackcolor() As Color
        Get
            Return selectBackcolor
        End Get
        Set(ByVal value As Color)
            selectBackcolor = value
        End Set
    End Property
 
    Public Property UnSelectedBackColor() As Color
        Get
            Return unselectbackcolor
        End Get
        Set(ByVal value As Color)
 
            unselectbackcolor = value
        End Set
    End Property
    Public Property SelectedBorderColor() As Color
        Get
            Return selectbordercolor
        End Get
        Set(ByVal value As Color)
 
            selectbordercolor = value
        End Set
    End Property
 
    Public Property SelectedBorderWidth() As Single
        Get
            Return selectborderwidth
        End Get
        Set(ByVal value As Single)
 
            selectborderwidth = value
        End Set
    End Property
 
    Public Overrides Function ToString() As String
        Return selectBackcolor.ToString & " ; " & unselectbackcolor.ToString & _
          " ; " & selectbordercolor.ToString & " ; " & _
          selectborderwidth.ToString
    End Function
End Class

Gruss Caddy