Toolbar Button Shortcuts

I want to assign Shortcuts to Toolbar Buttons
Say "Ctrl+A" , "Ctrl-E" etc

Set the forms KeyPreview property to Ture and then...

VB Code:

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 65 And (Shift And vbCtrlMask) > 0 Then 'Ctl + A
        Toolbar1_ButtonClick Toolbar1.Buttons.Item(1) 'Click button 1
    ElseIf KeyCode = 69 And (Shift And vbCtrlMask) > 0 Then 'Ctl + E
        Toolbar1_ButtonClick Toolbar1.Buttons.Item(2) 'Click button 2
    End If
End Sub