[فراس الغزي]

تفضل  اخي  هسى  ان ينفعك  هذا الكود  

كود :

 Private Sub Butcaret_Click(sender As Object, e As EventArgs) Handles Butcaret.Click
        Dim Generator As New MessagingToolkit.Barcode.BarcodeEncoder
        Generator.IncludeLabel = True
        Generator.CustomLabel = Textcod.Text
        Try
            PictureBox1.Image = New Bitmap(Generator.Encode(MessagingToolkit.Barcode.BarcodeFormat.Code128, Textcod.Text))
        Catch ex As Exception

        End Try
    End Sub