re-writing a getTickCount to work with Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Question

I hope you can help, I've moved over to a Windows 10 machine 64bit and one of the codes I used to interface with Attachmate no longer works as it is now reflection attachmate

The original code is

Private Declare Function GetTickCount Lib "kernel32" () As Long

Function screenCheckOK() As Boolean
    ' will wait for screen to become free. if not free after
    ' 30 seconds will return false

    Dim screenStatus As Integer
    Dim Start As Long
       
    screenCheckOK = False
    Start = GetTickCount()
    Do
        If GetTickCount() >= Start + 30000 Then Exit Function
        DoEvents
        screenStatus = getScreenStatus
    Loop Until screenStatus = 0
    screenCheckOK = True
End Function

Obviously I can't use GetTickCount I now have to use Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long).

But I just can't seem to write a new code for it. I thought I could use 'Sleep200 but that doesn't work.
any help please?