Private Sub Command1_Click() Text1.Text = Text1.Text & "1"End SubPrivate Sub Command2_Click() Text1.Text = Text1.Text & "2"End SubPrivate Sub Command3_Click() Text1.Text = Text1.Text & "3"End Sub。。。。。。