[معاند الحظ]

السلام عليك اخوي 

الحل للخطأ الموجود في برنامجك وليس برنامج الاخ ابراهيم

اللي لاحظته ان عندك خطئين الاول هو انك وضعت  مجلد في مسار البرنامج واسمه pics
بهذا الكود

كود :

IO.Directory.CreateDirectory(Application.StartupPath & "\Pics")

لكنك في كود الحفظ والتحميل كتبت اسمه pices 
هذا الخطا الاول 

الخطا الثاني هو انك دائما تحاول حفظ الصورة بنفس الاسم لانك تستخدم النص الموجود في التكست بوكس Code_Prd.Text دائما

كود :

thumb.Save(Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG", _
           System.Drawing.Imaging.ImageFormat.Png)

الان استخدم الكود المعدل التالي وان شاء الله يختفي الخطأ

كود :

 Private Sub BtnBrowse_Click(sender As Object, e As EventArgs) Handles BtnBrowse.Click
       'Try
       ChoosePitcerBox(Prd_Photos, Code_Prd.Text)
       Dim bm As New Bitmap(Prd_Photos.Image)
       Dim x As Int32 = 70
       Dim y As Int32 = 64
       Dim width As Integer = Val(x)
       Dim height As Integer = Val(y)

       Dim ID As String = Guid.NewGuid.ToString


       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()
       If IO.Directory.Exists(Application.StartupPath & "\Pics") = True Then
           thumb.Save(Application.StartupPath & "\Pics\" & ID + ".PNG",
      System.Drawing.Imaging.ImageFormat.Png)
           Prd_Photos.Load(Application.StartupPath & "\Pics\" & ID + ".PNG")
           g.Dispose()
           bm.Dispose()
           thumb.Dispose()
       Else
           IO.Directory.CreateDirectory(Application.StartupPath & "\Pics")
           thumb.Save(Application.StartupPath & "\Pics\" & ID + ".PNG",
           System.Drawing.Imaging.ImageFormat.Png)
           Prd_Photos.Load(Application.StartupPath & "\Pices\" & ID + ".PNG")

       End If
       bm.Dispose()
       thumb.Dispose()
       g.Dispose()
       'Catch ex As Exception
       '    MessageBox.Show(ex.Message.ToString())
       'End Try

   End Sub