Imports System
Imports System.Drawing
Imports System.Windows.Forms
 
 
Public Class NewTextBox
    Inherits System.Windows.Forms.TextBox
 
    Protected Overrides Sub OnPaint(ByVal e As _
      System.Windows.Forms.PaintEventArgs)
        e.Graphics.DrawString(Me.Text, Me.Font, Brushes.Black, 0, 0)
 
        Dim hGraphics = e.Graphics
        Dim hPen As Pen
 
        If Me.Focus Then
            hPen = New Pen(Color.Blue, 1.0)
        Else
            hPen = New Pen(Color.White, 2.0)
        End If
 
        e.Graphics.DrawRectangle(hPen, New Rectangle(New Point(1, 1), New Size( _
          e.ClipRectangle.Size.Width - 3, e.ClipRectangle.Size.Height - 3)))
        hPen.Dispose()
 
    End Sub
 
    Public Sub New()
        Me.SetStyle(ControlStyles.UserPaint, True)
    End Sub
 
 
End Class