ola pessoal , sera q alguem sabe como fazer pra colocar icones dentro do Active report , ? obrigado

como assim?  tipo criar um botao Sair e colocar um icone nele?

Isso mesmo , tem jeito defazer isso?

Private Sub ActiveReport_ReportStart()
With Me
    'assume o tamanho do form
    On Error Resume Next
'o código para redimencionar o Arviewer de acordo com form estao _
no resize com a traducao dos tooltips
   
    .Move 0, 0, ScaleWidth, ScaleHeight
    .Toolbar.Tools.Item(0).Visible = False
    .Toolbar.Tools.Item(2).ToolTip = "Imprimir"
    .Toolbar.Tools.Item(2).Caption = "Imprimir"
    .Toolbar.Tools.Item(3).Visible = False
    .Toolbar.Tools.Item(4).Visible = False '.Tooltip = "copiar"
    .Toolbar.Tools.Item(5).Visible = False
    .Toolbar.Tools.Item(6).Visible = False
    .Toolbar.Tools.Item(8).ToolTip = "Sómente uma página"
    .Toolbar.Tools.Item(9).ToolTip = "Múltiplas páginas"
   
    .Toolbar.Tools.Item(11).ToolTip = "Diminui o Zoom"
    .Toolbar.Tools.Item(12).ToolTip = "Aumenta o Zoom"

    .Toolbar.Tools.Item(15).ToolTip = "Página Anterior"
    .Toolbar.Tools.Item(16).ToolTip = "Página Seguinte"
    .Toolbar.Tools.Item(17).ToolTip = "Página"
   
    .Toolbar.Tools.Item(19).Visible = False
    .Toolbar.Tools.Item(20).Visible = False
   
   
  'adiciona SAIR na toobar do relatório
    .Toolbar.Tools.Add "  Sair   "
    .Toolbar.Tools.Item(21).ToolTip = "Volta a tela de FDC..."
    .Toolbar.Tools.Item(21).AddIcon LoadPicture(App.Path & "Voltar.ico") 'carrega o ico NA MESMA PASTA

End Sub

Private Sub ActiveReport_ToolbarClick(ByVal Tool As DDActiveReports2.DDTool)
    If Tool.Caption = "  Sair   " Then
        Unload Me
    End If

End Sub

Bom, obrigado por postar irmao, so q tem o seguinte eu to fazendo mais botoes no Active entao to usando um "case" liga

e nao funciona de jeito nenhum cara

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

e os icoens tem q ser na mesma pasta ???

 

    Toolbar.Tools.Item(25).AddIcon LoadPicture(App.path & "" & "SAIR.ico") 'carrega o ico NA MESMA PASTA