[عبدالله الدوسري]

   

كود :

       Using Image As System.Drawing.Image = New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height)
           Me.PictureBox1.DrawToBitmap(Image, Me.PictureBox1.ClientRectangle)
           Image.Save(IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.Desktop, "NewImageTest.jpg"))
       End Using