在击键事件中：

1、如果始终要求输入大写字母的代码（小写转大写）：KeyAscii = Asc(UCase(Chr(KeyAscii)))

2、如果始终要求输入小写字母的代码（大写转小写）：KeyAscii = Asc(LCase(Chr(KeyAscii)))