My code below. Works fine if I set a QR code but UPCA / EAN13 and others still shows text. Other than that I love this!
Dim BCode As New Spire.Barcode.BarcodeSettings
With BCode
.ShowText = False
.ShowTopText = False
.ShowTextOnBottom = False
.BarHeight = 50
.TextFont = New Font("Arial", 12)
.ImageWidth = BC.Height
.ImageHeight = BC.Width
.BackColor = DesignerPanel.BackColor
.Type = Spire.Barcode.BarCodeType.UPCA
.Data = "99999999999"
End With