Cannot change Font in custom textbox at runtime

[starrj]

I am using VB.NET VS2010

This seems like a trivial problem but I am unable to get past it. I have a very simple custom textbox class (full code below) that draws a rounded corner border around the textbox. This works as I expected. However, the font that appears in the textbox at runtime is not what I would like, so, I put a line of code in the Form that set it to a different font - no change. I tried setting the font using the properties window in design mode. It accepted the change there, but, at runtime the old default font was used. I am unable to control the font of the custom textbox either at runtime or design time. I did find that if I do not set ControlStyles.UserDraw to TRUE then the custom textbox behaves normally w/r/t font change but does not draw the custom border - but this defeats the purpose of making the custom textbox in the first place. I am sure I must be missing something obvious here. Help?

Imports System.Drawing.Drawing2D
Public Class RoundedTextbox
    Inherits TextBox
    Public Sub New()
        MyBase.New()
        SetStyle(ControlStyles.UserPaint, True)
        SetStyle(ControlStyles.AllPaintingInWmPaint, True)
        BorderStyle = BorderStyle.FixedSingle
    End Sub
    Private Function ShrunkenBox() As RectangleF
        Return New RectangleF(ClientRectangle.X, ClientRectangle.Y, ClientRectangle.Width - 1, ClientRectangle.Height - 1)
    End Function
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        e.Graphics.FillRectangle(Brushes.White, ClientRectangle)
        e.Graphics.DrawPath(Pens.LightGray, RoundCornerRectangle(ShrunkenBox))
    End Sub
    Private Function RoundCornerRectangle(ByVal Box As RectangleF) As Drawing2D.GraphicsPath
        Dim Xcorner As Single = 6
        Dim Ycorner As Single = 6
        Dim result As New Drawing2D.GraphicsPath
        '--- UL corner
        result.AddArc(New RectangleF(Box.X, Box.Y, Xcorner, Ycorner), 180, 90)
        '--- UR corner
        result.AddArc(New RectangleF(Box.X + Box.Width - Xcorner, Box.Y, Xcorner, Ycorner), 270, 90)
        '--- LR corner
        result.AddArc(New RectangleF(Box.X + Box.Width - Xcorner, Box.Y + Box.Height - Ycorner, Xcorner, Ycorner), 0, 90)
        '--- LL corner
        result.AddArc(New RectangleF(Box.X, Box.Y + Box.Height - Ycorner, Xcorner, Ycorner), 90, 90)
 
        result.CloseFigure()
        Return result
    End Function
End Class