Option Explicit

'擬似メッセージを送信します
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const BM_CLICK = &HF5

'ハンドル指定で
'ボタンをクリックしたことにします
Sub PushButton(ByVal hWnd As Long)
    SendMessage hWnd, BM_CLICK, 0, 0
End Sub

'ボタンをクリックしました
Private Sub Command1_Click(Index As Integer)
    Text1.Text = Text1.Text & Command1(Index).Caption
End Sub

'フォームがアクティブのときにキーを押しました
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim nIndex As Integer
    
    'ボタンをクリックしたことにします
    'KeyCode - vbKeyNumpad0 = Index値(0〜9)
    nIndex = KeyCode - vbKeyNumpad0
    If nIndex >= 0 And nIndex <= 9 Then
        PushButton Command1(nIndex).hWnd
    End If
End Sub

'フォームをロードしました
Private Sub Form_Load()
    
    'Form_KeyDownなどでキー入力を監視します
    Me.KeyPreview = True
    
End Sub