Private Sub Text1_Change()
Text2.Text = LCase(Text1.Text) '转换成小写字母
Text3.Text = UCase(Text1.Text) '转换成大写字母
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Text1_Change()
Text2.Text = LCase(Text1.Text) '转换成小写字母
Text3.Text = UCase(Text1.Text) '转换成大写字母
End Sub
Private Sub Command1_Click()
End
End Sub