Imports System.ComponentModel
 
Public Class ucTest
    Private Sub ucTest_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
        If IO.File.Exists(Textfile) Then
            'den Text laden
            Text = IO.File.ReadAllText(Textfile)
        End If
        Me.Invalidate()
    End Sub
 
    Dim Textfile As String = "G:\daten\usercontrol_text.txt"
 
    Dim _text As String
    Dim _textfont As New Font("Arial", 14, FontStyle.Bold)
 
    Public Shadows Event TextChanged(sender As Object, e As EventArgs)
 
    <Browsable(True), Description("Text der zurück gegeben wird oder der" &
     " angezeigt werden soll"), RefreshProperties(RefreshProperties.Repaint)>
    Public Overrides Property Text As String
        Get
            Return _text
        End Get
        Set(ByVal value As String)
            If value IsNot Nothing Then
                _text = value
                'den Text speichern
                IO.File.WriteAllText(Textfile, Me.Text)
                RaiseEvent TextChanged(Me, EventArgs.Empty)
            End If
        End Set
    End Property
 
 
    Private Sub ucTest_TextChanged(sender As Object, 
                       e As EventArgs) Handles Me.TextChanged
 
        Me.Invalidate()
 
    End Sub
 
 
    Protected Overrides Sub OnPaint(e As PaintEventArgs)
        MyBase.OnPaint(e)
        Using br As New SolidBrush(Color.Red)
            e.Graphics.DrawString(Text & vbCrLf & "Grüße vom Event", _textfont, _
              br, 10, 10)
        End Using
 
    End Sub
 
End Class

  <Browsable(True), Description("Text der zurück gegeben wird oder der" &
     " angezeigt werden soll")>
    Public Overrides Property Text As String