dim b as Button
...
b.initialize("but1")
b.text = "_Save"
asJO(b).RunMethod("setMnemonicParsing",array(true))
...
sub asJO(o as JavaObject) as JavaObject
return o
end sub
...
sub but1_Action
' now ALT+S will also call this routine as well as a click on the button
...
end sub
...