مشكلة في عرض الصورة علي Picturebox

السلام عليكم,,

معقولة مفيش حد في المنتدي عندة حل للموضوع ده

ليه بتستخدم الباركود كا صورة أستخدمه كارقام أوحروف أقضل من الصور وأقل حجماً

راجع الرابط التالى هنـــــأ

السلام عليكم ,, الموضوع هنا مش موضوع باركو ,, الموضوع بقي مشكلة في حفظ صورة داخل قاعدة البيانات واستدعائها مرة ثانية بيطلع اعتراض بيقول ان الصورة مستخدمة من قبل برنامج آخر مع اني بقوم بتفريغ قيمة PictureBox

طبعاً بتستدعى الصورة عن طريق ال Stream لازم بعد كل أستدعا تعمل اغلاق لل Stream

  stream.Close()

آدي الكود وقافل الاستريم

   PictureBox1.Image = Nothing


		Dim X As String
		X = InputBox("أدخل كود الصنف المراد البحث عنة", "استدعاء بالكود")
		If Trim$(X) = "" Then MsgBox("رجاءاً إدخال قيمة مناسبة", MsgBoxStyle.Critical) : Exit Sub

		Cmd.CommandText = "Select * From Purchases Where PurId='" + X + "'"
		Dr = Cmd.ExecuteReader
		Dr.Read()

		If Dr.HasRows = False Then
			MsgBox("كود الصنف غير موجود", MsgBoxStyle.Exclamation, "Error")
			Dr.Close()
			Exit Sub
		End If
		Dr.Close()

		'عرض الصورة
		Cmd.CommandType = CommandType.Text
		da.SelectCommand = Cmd
		da.Fill(ds, "Purchases")
		dt = ds.Tables("Purchases")

		Dim CrPosition As Integer
		CrPosition = Me.BindingContext(dt).Position

		Dim ArrayImage() As Byte = CType(ds.Tables(0).Rows(CrPosition)("BarCode"), Byte())

		Dim IntData As New Integer
		IntData = ArrayImage.GetUpperBound(0)
		Dim Fs As New FileStream(Application.StartupPath + "\LoadBarcodePic.bmp", FileMode.OpenOrCreate, FileAccess.Write)
		Fs.Write(ArrayImage, 0, IntData)
		Fs.Close()

		ArrayImage = Nothing

		PictureBox1.Image = Image.FromFile(Application.StartupPath + "\LoadBarcodePic.bmp")
		PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
		Dr.Close()

		'عرض البيانات
		Cmd.CommandText = "Select * From Purchases Where PurId='" + X + "'"
		Dr = Cmd.ExecuteReader
		Dr.Read()

		TextBox1.Text = Dr("PurId")
		TextBox2.Text = Dr("PurSN")
		ComboBox2.Text = Dr("PurName")
		TextBox4.Text = Dr("PurQnt")
		TextBox5.Text = Dr("PurPrc")
		TextBox6.Text = Dr("PurVal")
		TextBox7.Text = Dr("PurNote")
		TextBox8.Text = Dr("PurKind")
		DateTimePicker1.Value = Dr("PurDate")
		DateTimePicker2.Value = Dr("PurExp")
		ComboBox1.Text = Dr("PvName")

		Dr.Close()


		Barcode1.DataToEncode = TextBox1.Text

,ومع ذلك بيقولي الصورة مستخدمة من قبل برنامج آخر

اية المشكلة مش عارف