Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
  Dim R As Rectangle = Me.ClientRectangle
  e.Graphics.DrawRectangle(New Pen(_BorderColor), R.X, R.Y, R.Width - 1, _
    R.Height - 1)
 
  MyBase.OnPaint(e)
End Sub