在窗体上画一个文本框然后编写程序运行后如果按下键盘上的ABCD键则在文本框上显示EFGH！

Private Sub Form_Load()
Text1.Text = ""
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyA
Text1.Text = "E"
Case vbKeyB
Text1.Text = ""
Text1.Text = "F"
Case vbKeyC
Text1.Text = "G"
Case vbKeyD
Text1.Text = "H"
Case Else
MsgBox "对不起只能输入A、B、C、D"
End Select
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = KeyAscii + 4
End Sub