[محمود صالح]

بدل الاكواد دي مكان مثلها في module1 (وهي من اول انشاء الصورة)

كود :

       ' انشاء صورة عرضها عدد حروف الباينرى المستخدم
       Dim bmp As Bitmap = New Bitmap(Len(Binaryz), 210, System.Drawing.Imaging.PixelFormat.Format24bppRgb)
       Dim z As String ' متغير لمعرفة لون الخط
       Dim GraphZ As Graphics = Graphics.FromImage(bmp)
       Dim RectZ As Rectangle = New Rectangle(0, 0, bmp.Width, bmp.Height) ' مستطيل بحجم الصورة لاعطاء الخلفية باللون الابيض
       ' فرشاه لدهان المستطيل السابق باللون الابيض
       Dim myBrush As Brush = New Drawing.Drawing2D.LinearGradientBrush(RectZ, Color.White, Color.White, Drawing.Drawing2D.LinearGradientMode.ForwardDiagonal)
       ' دهان المستطيل السابق باللون الابيض
       GraphZ.FillRectangle(myBrush, RectZ)
       '  رسم خطوط الباركود
       Dim PenZ As Pen
       Dim point1 As Point ' نقطة بداية الخط
       Dim point2 As Point ' نقطة نهاية الخط
       For I = 1 To Len(Binaryz)
           z = Mid(Binaryz, I, 1)
           If z = "0" Then
               PenZ = New Pen(Color.Black, 1)
               point1 = New Point(I, 45)
               point2 = New Point(I, 120)
               GraphZ.DrawLine(PenZ, point1, point2)
           Else
               PenZ = New Pen(Color.White, 1)
               point1 = New Point(I, 45)
               point2 = New Point(I, 120)
               GraphZ.DrawLine(PenZ, point1, point2)
           End If
       Next
       ' رسم النص المراد ترميزه اسفل الكود
       Dim format1 As New StringFormat
       format1.Alignment = StringAlignment.Center
       GraphZ.DrawString(TheText, New Font("times new roman", 16, FontStyle.Bold), New SolidBrush(Color.Black), bmp.Width / 2, 120, format1)
       GraphZ.DrawString(Kind, New Font("times new roman", 24, FontStyle.Bold), New SolidBrush(Color.Black), bmp.Width / 2, 165, format1)
       GraphZ.DrawString(Price, New Font("times new roman", 24, FontStyle.Bold), New SolidBrush(Color.Black), bmp.Width / 2, 0, format1)
       Code128 = bmp

انا كبرت الصورة كما قال لك الاستاذ الفاضل silverlight
اخيرا في حاجة ممكن تفزعك وهي صورة الباركود في picbox  الى اسمها في المثال  PicBarCode اذهب الى خاصية
 PicBarCode.BackgroundImageLayout وغيرها الى Stretch
طبعا ده كله للمثال بتاعك وليس المثال الاخير
رجاء لما تجربها عملي قلي ايه النتيجة