ذخیره عکس با سایز دلخواه

با سلام به دوستان گرامی
من با این دستور عکس رو در پوشه ای از برنامه ذخیره میکنم
pic.Image.Save(AppDomain.CurrentDomain.BaseDirecto ry & "pic\" & txt_name.Text + "_" + txt_family.Text & ".jpeg")

حالا میخوام بیاد برام با سایزی که من میخوام ذخیره کنم

مثلا 3*4

سایز picturebox رو 3*4 میکنم ولی کاری انجام نمیده

همان عکس رو کپی کرده ور پوشه مورد نظر میریزه

چیکار باید کرد

دوست عزیز اینو تست کنید

عکس مورد نظر رو داخل PictureBox1 بذارید.
به متغیر x اندازه طول و y اندازه ارتفاع جدید عکس رو بدید

        Dim bm As New Bitmap(PictureBox1.Image)

        Dim x As Int32 

        Dim y As Int32 



        Dim width As Integer = Val(x) 



        Dim height As Integer = Val(y) 



        Dim thumb As New Bitmap(width, height)



        Dim g As Graphics = Graphics.FromImage(thumb)



        g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic



        g.DrawImage(bm, New Rectangle(0, 0, width, height), New Rectangle(0, 0, bm.Width, _

bm.Height), GraphicsUnit.Pixel)



        g.Dispose()





        thumb.Save("C:\newimage.bmp", _

System.Drawing.Imaging.ImageFormat.Bmp) 'can use any image format 



        bm.Dispose()



        thumb.Dispose()