问题：[选择题]

[单项选择题] 在窗体中添加两个文本框，其名称为别为Text1和Text2；两个标签，其名称为别为Labe11和Labe12。编写程序，使得程序运行后，在文本框Text2中输入小写字母，能转换为比此字母ASCII代码小4的大写字母，结果显示在文本框Text1中。如输入“efg”，则输出结果为“ABC”，运行后如下。能够实现上述功能的程序是______。

A．PrivateSubFormLoad()
Show
Text1.Text=""
Text2.Text=""
Text2.SetFocus
EndSub
PrivateSubText2_KeyDown(KeyCodeAs
Integer,ShiftAsInteger)
Text1.Text=Chr(KeyCode-4)
EndSub
B．PrivateSubFormLoad()
Show
Text1.Text=""
Text2.Text=""
Text2.SetFocus
EndSub
PrivateSubText2_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
Text1.Text=Text1.Text+Chr
(KeyCode-4)
EndSub
C．PrivateSubForm_Load()
Show
Text1.Text=""
Text2.Text=""
Text2.SetFocus
EndSub
PrivateSubText2_Click(KeycodeAsInteget，ShiftAsInteger)
Text1.Text=Text1.Text+Chr(KeyCode-4)
EndSub
D．PrivateSubForm_Load()
Show
Text1.Text=""
Text2.Text=""
Text2.SetFocus
EndSub
PrivateSubText2_Click(KeyCodeAsInteger，ShiftAsInteger)
Text1.Text=Chr(KeyCode-4)
EndSub