Public Class KuhStab
    Inherits Label

    'Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
    '    If RectangleValue <> Nothing Then
    '        e.Graphics.FillRectangle(Brushes.Red, RectangleValue)
    '    End If
    'End Sub

    Public newPropertyValue As Graphics
    Public Property NewProperty() As Graphics
        Get
            Return newPropertyValue
        End Get
        Set(ByVal value As Graphics)
            newPropertyValue = value
        End Set
    End Property
    Public Sub New()
        ' Set the property value.
        NewProperty = NewProperty
    End Sub
End Class