Private Sub テキスト1_KeyDown(KeyCode As Integer, Shift As Integer) MsgBox ("KeyDown:" + Str(KeyCode)) End Sub Private Sub テキスト1_KeyPress(KeyAscii As Integer) MsgBox ("KeyPress:" + Str(KeyAscii)) End Sub