olá, nao esquece de passar o proximo item da toolbar a ser criado, olha no exemplo q postei já tinha até o 20 o proximo era o 21 que eu iria criar, pra pegar o click do botao vc faz um if.... pra pegar o caption do do botao, o arquivo do icone que vc vai atrubuir loadpicture(..........) deve ter o caminho completo, por isso falei que deveria está na pasta do projeto pra ficar  mais facil e poder usar o app.path

ola sim eu estou fazendo assim

Toolbar.Tools.Add ("  Sair   ")
    Toolbar.Tools.Item(25).Tooltip = "Voltar ao Formulario Areas"
    Toolbar.Tools.Item(25).AddIcon LoadPicture(App.path & "" & "SAIR.ico") 'carrega o ico NA MESMA PASTA

 

mas na hora de fechar no ActiveReport_ToolbarClick

 

nao funcoina desse jeito

 

 Case "Sair"
             If Tool.Caption = "Sair" Then
        Unload Me
   End If
  

aí ta o erro, o caption  ta com espaço antes e depois....

HUmm pode cre , entao nao da pra colocar o texto Sair , porq se eu tiro os espaços o icone cobre o a mensagem

aumenta os espacos....

 sim , mas com os espaços nao funciona no ActiveReport_ToolbarClick

como no caso do botao sair , onde o problema era justamente o espaço