Dim d As System.Drawing.Graphics = p.CreateGraphics
        Dim Pen As New System.Drawing.Pen(System.Drawing.Color.Red, 3)
        d.DrawRectangle(Pen, New Rectangle(0, 0, p.Width - 6, p.Height - 6))
        Pen.Dispose()
        d.Dispose()
        Return p