Accelerator for a new command bar button

[PathSmart]

I have created a floating command bar, and added a button to it. I want to add
an accelerator key (Alt-S) but VBA says that the object does not support the
property or method. It seems that it should.

Here's what I have.

Set mybar = CommandBars.Add(name:="Scanning", Position:=msoBarFloating, _
Temporary:=True)
Set ScanIt = CommandBars("Scanning").Controls.Add(Type:=msoControlButton)
With ScanIt
.Style = msoButtonCaption
.Caption = "Next"
.OnAction = "FindText"
.Accelerator = "N" <<<------error point
End With


Thanks for whatever help you can offer.

Roy