Fechar todos Relatorios ao fechar Aplicação - Active Reports 2.0

[Danleonhart]

Pessoal...

Uso o Active Reports para gerar relatórios e para Impressão e exportação em PDF, Excel, TXT...

porém tenho 8 relatórios (Active Report.Dsr) que só fecham se for colocado o comando "Unload Relatorio"...então estou colocando no Unload do MDIForm todos os relatórios, para que ao fechar a aplicação feche junto todos os relatórios que estiverem abertos...

Então, uso o script abaixo para fechar todos os Form's:

Private Sub MDIForm_Unload(Cancel As Integer)
  On Error Resume Next

Dim Frm As Form
For Each Frm In Forms
Unload Frm
Next Frm

Tentei adaptar para fechar todos os relatórios, porém não deu resultado...coloquei assim:

Private Sub MDIForm_Unload(Cancel As Integer)
  On Error Resume Next

Dim Frm As Form
For Each Frm In Forms
Unload Frm
Next Frm

Dim Act As ActiveReport
For Each Act In Forms
Unload Act
Next Act

Alguém pode dá uma ajuda ?

É apenas para "limpar" mais o script ;)