GenCode128 | simple library that lets you do one thing | Barcode Processing library

    Function PaintBox(ByVal level As String) As System.Drawing.Bitmap 

Dim objBitmap As System.Drawing.Bitmap 

objBitmap = GenCode128.Code128Rendering.MakeBarcodeImage(level, 1, True)

 Return objBitmap 

End Function 

Function PaintBoxBmp(ByVal level As String) As Byte() 

Dim bmpImage As System.Drawing.Bitmap

 bmpImage = PaintBox(level)

 Dim stream As System.IO.MemoryStream = New IO.MemoryStream 
Dim bitmapBytes As Byte() 
bmpImage.Save(stream, System.Drawing.Imaging.ImageFormat.Bmp)

 bitmapBytes = stream.ToArray 
stream.Close()
 bmpImage.Dispose() 
Return bitmapBytes 

End Function