With Item.Font.Bold  you set custom Font for item - same as

 

Dim fnt as New StdFont

fnt.Bold = True

Set item.Font = fnt

Here code you can use instead:

 

'unbold last item
    If Not oLastItem Is Nothing Then oLastItem.Bold = False
   
    'set the font to bold
    Item.Bold = True

 

Here you go, here is a project and screenshot.

 

Please attach your whole changed sample here and screenshot what do you see.

 

Ok, this is very odd, I pasted your code into your sample as well and it still does not work (underline is always present).  I am trying to get this to work in the ItemClick event and as a note, I am using the trial version of this control if that has anything to do with it.

 

Private Sub wndTaskPanel_HotItemChanged()
       
    Dim Item As TaskPanelItem
    Set Item = wndTaskPanel.HotItem
   
    'lock the redraw
    wndTaskPanel.LockRedraw = True
       
    'unbold last item
    If Not oLastItem Is Nothing Then oLastItem.Font.Bold = False
       
    'set the font to bold
    If Not Item Is Nothing Then Item.Font.Bold = True
   
    'unlock the redraw
    wndTaskPanel.LockRedraw = False
   
    'set the last item
    Set oLastItem = Item
   
    wndTaskPanel.Reposition

 

End Sub

 

added wndTaskPanel.EnableAnimation = True

 

and all look fine. Check it with our sample.