Private Sub Button1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Button1.Paint
        Dim Ctrl As Button = CType(sender, Button)
        e.Graphics.DrawRectangle(New Pen(Brushes.Black, 1), 2, 2, Ctrl.ClientRectangle.Width - 5, Ctrl.ClientRectangle.Height - 5)
    End Sub