My barcode command no success generate the barcode can some help me to look

[htcting]

Imports VBCode39.Barcodes

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Barcodes.Barcode39.Value = TextBox1.Text
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Private Sub chkShowText_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkShowText.CheckedChanged
Barcode39.ShowBarcodeText = chkShowText.Checked
End Sub

Dim pageNumber As Integer = 1
Dim numberOfPages As Integer = 1
Dim i As Integer = 0

Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
If PrintDialog1.ShowDialog() = DialogResult.OK Then
PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
PrintDocument1.Print()
End If
End Sub

Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
PrintPreviewDialog1 = New PrintPreviewDialog()
PrintPreviewDialog1.Document = PrintDocument1
PrintPreviewDialog1.Show()
End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
numberOfPages = Integer.Parse(nudPages.Value.ToString())
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

Continue reading...