Returns or sets the font of TopText (TopText is the optional text above the bar code).

BarCodeWiz1.TopTextFont [ = font]

Example 1: Retrieve font name

Dim ftName As String
ftName = BarCodeWiz1.TopTextFont.Name                   

Example 2: Set TopTextFont

Dim f As StdFont
Set f = New stdole.StdFont
f.Name = "Times New Roman"
f.Size = 16
Set BarCodeWiz1.TopTextFont = f     

Example 3: Change current TopTextFont size

Dim f As StdFont
Set f = New stdole.StdFont
Set f = BarCodeWiz1.TopTextFont 
f.Size = 14
Set BarCodeWiz1.TopTextFont = f