睡眠功能不會在序列

Question

工作，我用下面的睡眠若干年前寫了一個VBA Excel程序用一個動畫圖形：

For i = 1 To (H - V) 'move in horizontal plane 
With Selection 
.Left = .Left - 3 
End With 
Sleep 10 
Next i 

我叫睡眠功能，從kernal32用的代碼模塊上方的線頂線。一切運作良好

我升級到64位機 - 所有停止工作。我在睡眠呼叫中添加了「PtrSafe」這個短語，但是現在所有的動作都發生在一次大跳躍中。該程序首先執行睡眠，然後執行其他所有操作，而不會暫停。我究竟做錯了什麼？

Answer 1

https://msdn.microsoft.com/en-us/library/office/gg264421.aspx

#If Vba7 Then 
Declare PtrSafe Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long) 
#Else 
Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long) 
#EndIf 

值是以毫秒爲單位，所以你可以使用Sleep 10000代替