求助

Sub Form_Mousemove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If 3200 < X < 3700 And 2040 < Y < 2700 Then
Command1.Left = 1000
Command1.Top = 1000
End If
End Sub
我的想法是：当鼠标移动到指定位置是，命令按钮也移动到指定位置。但以上代码我在运行的时候不论鼠标在哪个位置 命令按钮都会移动。求助大神应该如何修改