点击下载此附件

其中一种方法:击键事件这样写

Private Sub Text0_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))  '转大写
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(LCase(Chr(KeyAscii)))   '转小写
End Sub