vb.net - カスタム TextBox コントロールの周りに四角形を描く

Question

BorderColor と BorderSize の 2 つの追加プロパティを持つカスタム TextBox コントロールを作成しようとしています。ただし、BorderStyle が None に設定されていても、境界線は表示されません。これが私のコードです：

Imports System.Windows.Forms
Imports System.Drawing
Imports System.ComponentModel


Public Class BorderedTextBox
    Inherits TextBox

    Dim BColor As Color = Color.Black
    Dim BSize As Double = 1.0

    Public Property BorderColor As Color
        Get
            Return BColor
        End Get
        Set(value As Color)
            BColor = value
        End Set
    End Property



    Public Property BorderSize As Double
        Get
            Return BSize
        End Get
        Set(value As Double)
            BSize = value
        End Set
    End Property

    Public Sub New()
        SetStyle(ControlStyles.UserPaint, True)

    End Sub

    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)

        Dim g As Graphics = e.Graphics

        Dim pen As New Pen(BColor, BSize)
        g.DrawRectangle(pen, New Rectangle(Me.Location, Me.Size))
        pen.Dispose()

        MyBase.OnPaint(e)
    End Sub

End Class