Private Sub Command1_Click()Text2 = Text1
End Sub
Private Sub Command2_Click()Text1 = Text2
Private Sub Command3_Click()Text1 = ""Text2 = ""
Private Sub Command4_Click()End