Automatise the Scan-Dialog

[Mr]

Hello

Using Acrobat 8.0 and VB6 I would like to control the Scan Dialog. Now
I'am using the following code, whitch allowed a semi-automatisation by
using the Scanmenu and the Clipboard, but its not so comfortable:

Private Sub cmdAcrobat_Click()
Dim Ok As Boolean
Dim Acro As AcroApp
Set Acro = New AcroApp
Clipboard.SetText SavingPath
Ok = Acro.MenuItemExecute("Scan")
End Sub

Does someone have a better solution?

Thanks

Dirk