在VBA中建立一个窗体，上面一个按钮，按一次窗体向右移动100距离，如果超过右边边框，则向左边移动，向左边移动每次也移动100距离，如果碰到左边边框，就又向右边移动，如此反复。

Question

在VBA中建立一个窗体，上面一个按钮，按一次窗体向右移动100距离，如果超过右边边框，则向左边移动，
向左边移动每次也移动100距离，如果碰到左边边框，就又向右边移动，如此反复。

Answer 1

Private Sub CommandButton1_Click()
If (UserForm1.Left + UserForm1.Width) > 1024 Then UserForm1.Tag = -1
If UserForm1.Left < 0 Then UserForm1.Tag = 1
UserForm1.Left = UserForm1.Left + 100 * Val(UserForm1.Tag)
End Sub
Private Sub UserForm_Initialize()
UserForm1.Tag = 1
End Sub