<EditorBrowsable(EditorBrowsableState.Never)>
<Browsable(False), Bindable(False)>
<DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>

Imports System.ComponentModel
 
Public Class UserControlWithText
 
  <EditorBrowsable(EditorBrowsableState.Always)>
  <Browsable(True), Bindable(True)>
  <DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)>
  Public Overrides Property Text As String
    Get
      Return MyBase.Text
    End Get
    Set(value As String)
      MyBase.Text = value
      Me.Invalidate()
    End Set
  End Property
 
  'Nur Test, im Entwurfsmodus:
  Protected Overrides Sub OnPaint(e As PaintEventArgs)
    If DesignMode Then
      e.Graphics.DrawString(Text, Font, New SolidBrush(ForeColor), _
        DisplayRectangle)
    Else
      MyBase.OnPaint(e)
    End If
  End Sub
 
End Class