如何处理通过后台代码在picturebox中画的内容被遮挡后消失？怎么将picturebox中内容保存成图片

如何避免通过后台代码在picturebox中画的内容被遮挡后消失？如何将picturebox中内容保存成图片？
 Dim i As Integer = 0
            Dim MyGraphics As Graphics = Me.PictureBox2.CreateGraphics
            Dim MyGraphicsP2 As Graphics = Me.P2.CreateGraphics
            Dim MyBrush As New SolidBrush(Color.Red)
            Dim MyProportion As Single
            Dim MyRect As New Rectangle
            Dim MyPoint As New PointF
            Dim R As Single
            Dim arrValues(1) As Integer
            arrValues(0) = Qty
            arrValues(1) = mBad
            Dim arrValueNames(1) As String
            arrValueNames(0) = "总计：" + arrValues(0).ToString
            arrValueNames(1) = "不满意：" + arrValues(1).ToString
            MyGraphics.Clear(Me.PictureBox2.BackColor)
            MyGraphicsP2.Clear(Me.P2.BackColor)
            Dim MyStartAngel As Double
            Dim MySweepAngel As Double

            R = Math.Min(Me.PictureBox2.Width, Me.PictureBox2.Height) / 2 - 15
            MyPoint.X = Me.PictureBox2.Width / 2
            MyPoint.Y = Me.PictureBox2.Height / 2
            MyRect.X = MyPoint.X - R
            MyRect.Y = MyPoint.Y - R
            MyRect.Width = R * 2
            MyRect.Height = R * 2

            MyStartAngel = 0
            MyProportion = mBad / Qty
            MySweepAngel = 360 * MyProportion
            MyBrush.Color = Color.Red
            MyGraphics.FillPie(MyBrush, MyRect, MyStartAngel, MySweepAngel)

            MyStartAngel = MyStartAngel + MySweepAngel
            MyProportion = (Qty - mBad) / Qty