سلام من یک picturebox روی فرمم دارم و از کد زیر برای ذخیره علامت + سرخ رنگی که با استفاده از دستورات کشیدن خط ایجاد کرده ام استفاده میکنم اما متاسفانه بعد از اجرای برنامه فایل ذخیره شده بدون خطهایی که من کشیده ام است. لطفا راهنمایی کنید مشکل چیست؟

Imports System.Drawing.Imaging

Public Class Form1
    Dim g As System.Drawing.Graphics
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        g = PictureBox1.CreateGraphics
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        redcross()
        Dim bmp As New Drawing.Bitmap(PictureBox1.Width, PictureBox1.Height)
        PictureBox1.DrawToBitmap(bmp, New Rectangle(0, 0, bmp.Width, bmp.Height))

        bmp.Save("e:\test\d.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
        End

    End Sub
    Sub redcross()

        Dim pH, pW, phh, pwh As Integer
        Dim p As New System.Drawing.Pen(Color.Red, 10)
        pH = Me.PictureBox1.Height : phh = pH / 2
        pW = Me.PictureBox1.Width : pwh = pW / 2
        g.DrawLine(p, pwh, 0, pwh, pH) 'vertical
        g.DrawLine(p, 0, phh, pW, phh) 'horizontal

    End Sub
End Class