How to set font for the BarItems listed in the ToolBarListBarItem in WinForms XPToolBar?

this.toolbarListBarItem1.Popup += new EventHandler(toolbarListBarItem1_Popup);
Private void toolbarListBarItem1_Popup(object sender, EventArgs e)
{
    foreach (BarItem b in this.toolbarListBarItem1.Items)
       b.CustomTextFont = new Font("Times New Roman", 8.25F);
}

AddHandler ToolbarListBarItem1.Popup, AddressOf ToolbarListBarItem1_Popup
Private Sub ToolbarListBarItem1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolbarListBarItem1.Popup
   For Each b As BarItem In Me.ToolbarListBarItem1.Items
       b.CustomTextFont = New Font("Times New Roman", 8.25F)
   Next b
End Sub