Private Sub UC1_Paint(sender As Object, e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        If Me.TextBox1.Focused Then
            ControlPaint.DrawFocusRectangle(e.Graphics,  Me.ClientRectangle)
        End If
    End Sub
 
    Private Sub TextBox1_GotFocus(sender As Object, e As EventArgs) Handles _
      TextBox1.GotFocus
        Me.Refresh()
    End Sub
 
    Private Sub TextBox1_LostFocus(sender As Object, e As EventArgs) Handles _
      TextBox1.LostFocus
        Me.Refresh()
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist