>>226
キーダウンなら拾えるが?


>>224
'開くボタンの処理
Private Sub OPEN_BTN_Click()

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode
Case vbKeyTab, vbKeyReturn
Call OPEN_BTN_Click

Case Else
End Select

End Sub