Public Sub New()
 
        Me.SetStyle(ControlStyles.UserPaint, True)
...
end sub
 
    Protected Overrides Sub OnPaint(ByVal pevent As _
      System.Windows.Forms.PaintEventArgs)
        ' MyBase.OnPaint(pevent)
        Try
            If Not IsNothing(pevent) Then
                If Not IsNothing(pevent.Graphics) Then
                    If Me.BorderStyle = Windows.Forms.BorderStyle.FixedSingle _
                      Then
                        Dim curPen As System.Drawing.Pen = New _
                        System.Drawing.Pen(Me.iBorderColor, 1)
                        pevent.Graphics.FillRectangle( _
                        System.Drawing.Brushes.White, 0, 0, Me.Width - 1, _
                        Me.Height - 1)
                        pevent.Graphics.DrawRectangle(curPen, 0, 0, Me.Width - _
                        1, Me.Height - 1)
                        pevent.Graphics.DrawString(Me.Text, Me.Font, _
                        System.Drawing.Brushes.Black, 0, CType((Me.Height / 2) _
                        - (Me.Font.Height / 2), Integer))
                        curPen.Dispose()
                    End If
                End If
            End If
        Catch ex As Exception
            '   MsgBox("Fehler TextBox " & ex.Message & " : " & 
            ' ex.InnerException.ToString & " : " & ex.Source.ToString, , "Test")
        End Try
    End Sub