Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Try it out Sub Command1_Click() Call Sleep(1000) End Sub