Imports System.Threading puis dans ton code : '1000 = 1seconde Thread.Sleep(1000)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sleep 5000