Private Sub Button3_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Button3.Paint
        Dim btn As Button = CType(sender, Button)
        Dim gr As Graphics = e.Graphics
        Dim c As Color = btn.BackColor
        Dim p As New Pen(c, 1)
        Dim rec As New Rectangle(0, 0, btn.Width - CInt(p.Width), btn.Height - _
          CInt(p.Width))
        gr.DrawRectangle(p, rec)
    End Sub