自动转换大小写
在 Key_Press 中正确的作法，是判断它的参数 KeyAscii ！a  的 Asc 值是 97，A 的 Asc 值是 65，所以要自动将小写转成大写，写法如下：

---

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii > = 97 And KeyAscii < = 122 Then
KeyAscii = KeyAscii - 32
End If