منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته

لدي برنامج اضافة عليه نظام الباركود 
ارجو المساعده في طريقة اضافة السعر والاسم الى ملصق الباركود وهذا الكود

Private Sub cmdCreate_Click()

   Dim oNewbarCode As cBarCode
   picBarCode.Cls
   Set oNewbarCode = New cBarCode
   oNewbarCode.BarCode = txtBarCode.Text + Text2.Text
   oNewbarCode.hdc = picBarCode.hdc
   oNewbarCode.NarrowBarWidth = 0.55
   oNewbarCode.BarHeight = 19
   oNewbarCode.CreateBarCode
   picBarCode.Refresh
   Set oNewbarCode = Nothing

End Sub

[attachment=21624]السلام عليكم 
طريقة الاضافة على هذا البرنامج اضافة السعر واسم المحل

هذا المرفق من احد الاخوان داخل هذا المنتدى

الحمدلله تم الاظافة بعد الجهد الجهيد