Reply to Message

I am using something similiar to this to show tool tips in different languages. A tool bar is a special container that does not .HaveChildren. To change the Tooltips you need to:

If TypeOf ctl Is ToolBar Then
Dim tbb As ToolBarButton, tb As ToolBar
tb = ctl
For Each tbb In tb.Buttons
tbb.ToolTipText= translatefunction( tbb.ToolTipText)
Next
End if