Wrap text in toolbar button

[Mr.No]

Hi

I'm dynamically adding buttons to a toolbar control as shown below:

Dim menuitem As CMenuItem
        Dim tbutton As ToolBarButton
        tbrMenu.Buttons.Clear()
        For Each menuitem In menulist
            tbutton = New ToolBarButton()
            With tbutton
                .Text = menuitem.MenuCaption
 
            End With
            tbrMenu.Buttons.Add(tbutton)
        Next

Some of the captions are quite long and the button is getting wide. How can I keep the button to a fixed width and then force the text to wrap itself if the width of the button is not enough?

Thanks