VB程式設計：UCase轉大寫，LCase轉小寫

Private Sub Text1_Change()

Text2.Text = LCase(Text1.Text)    '轉換成小寫字母

Text3.Text = UCase(Text1.Text)   '轉換成大寫字母

End Sub

Private Sub Command1_Click()

End