Wait 5 seconds

i am back again.
i have program it lists files and i mad the code that show HScrollbar in listbox but here is my problem, how can i make my HScrollbar to show up 5 Seconds after listing all files. so what i need is my function i am calling it will wait 5 seconds. Help me Thank you.

Code:

---

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

Private Sub Pause(Interval As Long)
    Start = GetTickCount
    Do While GetTickCount < Start + Interval
        DoEvents
    Loop
End Sub

'click or whatever event
Pause 5000    'Pause for 5 seconds

---

i try but i get message saying 'Overflow'. i thing what i need is just do loop , which count up to 5 and when it reach 5 it call function.

Code:

---

Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

---

Sleep 5000