Private Sub Command1_Change() Text1.Text = UCase(Text1.Text)End Sub是这个吗。。。?
楼主试一下这个:Private Sub FTextBox2_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii)))End Sub
?