VB编程：UCase转大写，LCase转小写

Private Sub Text1_Change()

Text2.Text = LCase(Text1.Text)    '转换成小写字母

Text3.Text = UCase(Text1.Text)   '转换成大写字母

End Sub

Private Sub Command1_Click()

End