I've tried ActiveBar but I have some problems with shortcuts.
I'm creating bars (with ActiveBar) programmatically, based on VB samples, but to link the shortcuts I have to do something like this:

* In VB sample
Dim aShortcuts(0) As New Shortcut
aShortcuts(0) = "Ctrl+1"
oleActiveBar.Bands("band").Tools("tool").Shortcuts = aShortcuts

* I've tried this way in VFP...
Local aShortcuts
Dimension aShortcuts(1)
aShortcuts(1) = "Ctrl+1"
oleActiveBar.Bands("band").Tools("tool").Shortcuts = aShortcuts

But when I run the form I receive an error message: "Invalid Subscript Reference".

Do you have any idea?

Emerson Santon Reed
emerson@folhamatic.com.br