[CDR X5-X8] Поставить паузу

[NemoSUN]

Помогите сделать паузу в полторы секунды в макросе:

Sub CopyLogo()
Dim d As Document
Dim s As Shape
Dim Lg As Layer
Set s = ActiveShape

For Each d In Application.Documents
    For Each Lg In d.ActivePage.Layers
        If Lg.Name = "Logo" Then
            Lg.Activate
            d.ActiveLayer.Editable = True
            Lg.Delete
            d.ActivePage.CreateLayer ("Logo")
            d.ActiveLayer.Paste
            d.ActiveLayer.Editable = False
            d.Save
            d.ActivePage.Layers("General").Activate
        End If
    Next
Next
End Sub

 

[_MBK_]

https://forum.oberonplace.com/showthread.php?t=7

 

[NemoSUN]

Сделал как там. Но на строке Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
Пишет ошибку : "Compile error: only comment may appear after End Sub End Function or End Property"

 

[_MBK_]

Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)

Там вообще то
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
причем ниже советуют более развернутый вариант

 

[NemoSUN]

Там вообще то
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Увидел ) НО !!!!! Я вставляю эту строку. Перехожу на любую другую и у меня пропадает Alias "Sleep". Самопроизвольно.

 

[NemoSUN]

Всё. Решено.