I just tried the following code but I could not see any change in either font.size or other attributes.
With Me.xpSM.Bars("Programm").Items
.Add , "Konfiguration", "Konfiguration", Me.vbACIL.ItemIndex("Config") - 1
.Add , "Handbuecher", "Hilfe und Dokumentation",
Me.vbACIL.ItemIndex("Help") - 1
.Add , "Close", "Programm beenden", Me.vbACIL.ItemIndex("Ok") - 1
With sFnt
.Name = "Tahoma"
.Size = 14
.Bold = True
End With
For i = 1 To .Count
.Item(i).Font = sFnt
Next
End With
|
The Font property was not implemented. This has now been done. |