Protected Overrides Sub onpaint(ByVal e As PaintEventArgs)
MyBase.OnPaint(e)
'绘制椭圆的边框
Dim g As Graphics = e.Graphics
Dim p As New Pen(Color.Blue)
Dim bru As Brush
bru = New SolidBrush(Me.ForeColor)
p.Width = 2
g.DrawEllipse(p, MyBase.ClientRectangle)
g.DrawString("usercontrol", Me.Font, bru, 41, 41) '在自定义控件上绘字符