参考答案

Private Sub Form_Click()
    Text1.Left = 0
    Text1.Top = 0
End Sub
Private Sub Text1_Change()
    Text1.Left = Form1.Width - Text1.Width
    Text1.Top = 0
End Sub