This is very weird! You have to try it to see what it does.

Private Sub Bt_MouseMove(Button As Integer, Shift As _
    Integer, X As Single, Y As Single)
    Bt.Move Bt.Left + 1000, Bt.Top + 1000
    Bt.Move Bt.Left - 1000, Bt.Top - 1000
End Sub