在窗体上画1个文本框，其名称为Text1，然后编写如下过程：

Private Sub Text1_KeyDown（KeyCode As Integer,Shift As Integer）

Print Chr（KeyCode）

E．nd Sub

Private Sub Text1_KeyUp（KeyCode As Integer，Shift As Integer）

Print Chr（KeyCode+2）

E．nd Sub

程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为。

A．A

A．

B．A

B．

C．A

C．

D．A

D．