編程問題

放置壹個文本框text1，兩個命令按鈕command1/command2，放好位置和大小，代碼如下：

Private Sub Command1_Click()

Text1.Text = UCase(Text1.Text)

End Sub

Private Sub Command2_Click()

Text1.Text = LCase(Text1.Text)

End Sub

Private Sub Form_Load()

Text1.Text = "/question/95249618.html?fr=rpy_push"

Command1.Caption = "大寫"

Command2.Caption = "小寫"

End Sub

已經運行過。