vb.net(c#) 改变控件的边框线性和颜色

.net开发中用到的系统控件，label，combobox，textbox等，控件的边框和线性要么选择无边框，要么是系统的统一边框，有时会不符合界面的整体设计要求，现在给大家一个技巧，来改变空间的边框颜色和线形

只要在form的load事件里，执行 dim x as new kjpt(控件名称)，就可以了

如果控件比较多，可以枚举一下

比如 

   For Each c As Control In Me.Controls
            Dim x As New kjpt(c)
    Next

 Class kjpt
        Dim c As Control
        Sub New(ByVal c As Control)
            Me.c = c
            Select Case c.GetType.Name
                Case "Label", "TextBox", "ComboBox"
                    Dim l = c
                    l.BorderStyle = BorderStyle.None
                    Dim p As Control = l.Parent
                    AddHandler p.Paint, AddressOf Me.kj_Paint
            End Select
        End Sub
        Private Sub kj_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)
            e.Graphics.DrawRectangle(Pens.Red, c.Left - 1, c.Top - 1, c.Width + 2, c.Height + 2)
        End Sub

    End Class