Private Sub Coolbar1_MenuButtonClick(ByVal nButton As Long, ByVal nMenuItem As _
  Long, ByVal sMenuKey As String)
 
  With Coolbar1.Buttons(nButton)
    If .Key = "btnFont" Then  ' Annahme, der Button-Key heißt btnFont
      Text1.FontSize = Val(.MenuButton(nMenuItem).Caption)
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de