Как передать фокус командной кнопке клавишей клавиатуры не исполняя кода - VB

Формулировка задачи:

При написании программы управления прессом работа мышью- никаких проблем. Требуется продублировать на клавиатуре, то есть при нажатии на клавишу по ее коду передать фокус на соответствующую Command button. Отдельная клавиша запускает код исполнения, здесь без проблем. Поиск в инете и литературе не дал вразумительного результата. Последний раз программировал на Бейсике в конце 80-х на самодельном Радио-86РК. Если поможете, то справлюсь. Заранее благодарен.

Решение задачи: «Как передать фокус командной кнопке клавишей клавиатуры не исполняя кода»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
 
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
 
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
    Case vbKeyA ' Нажата А
    Putfocus Command3.hwnd ' Поставить фокус на Command3
    Case vbKeyB ' B
    Putfocus Command4.hwnd ' Поставить фокус на Command3
End Select
End Sub