A.Private Sub Command1_Click()
Text1.Left=100
E.nd Sub
B.Private Sub Command1_Click()
Text1.Left= Text1.Left-100
C.Private Sub Command1_Click()
Text1.Move.Text.Left+100
D.Private Sub Command1_Click()
Text1.Move.Text.Left