把Textbox、label等控件的边框变成圆弧形，并且改变边框颜色

用法:改变2个数字参数的值来改变角的弧度，大家可以根据控件的大小自己测试规律

        Dim x As New changetextbox(Me.TextBox4, 2, 3, Color.Blue)
        Dim y As New changetextbox(Me.TextBox5, 13, 18, Color.Brown)

Class changetextbox
    Dim t As TextBox
    'Dim d As Integer = 13
    'Dim tj As Integer = 18
    Dim d As Integer = 13
    Dim tj As Integer = 18
    Dim cor As Color
    Sub New(ByVal t As Control, ByVal d As Integer, ByVal tj As Integer, ByVal cor As Color)
        Me.t = t
        Me.d = d
        Me.tj = tj
        Me.cor = cor
        Dim p As Control = t.Parent
        Me.t.BorderStyle = BorderStyle.None
        t.BackColor = p.BackColor
        AddHandler p.Paint, AddressOf Me.Panel1_Paint
    End Sub
    Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs)