This barcode control for VB.NET may be helpful, and here is a detailed totorial of how to use it. Here is a sample code:
Dim barcode As KeepAutomation.Barcode.Bean.BarCode = New KeepAutomation.Barcode.Bean.BarCode
barcode.Symbology = KeepAutomation.Barcode.Symbology.Code39
barcode.CodeToEncode = "123456789" barcode.generateBarcodeToStream("Stream Object")