Abundant Technologies - IT Consulting Experts

 Source Code Library

 Code Details

 
Option Explicit Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Sub WaitMinutes(Minutes As Long) Dim count As Long For count = 1 To (60 * Minutes) Call Sleep(1000) DoEvents Next End Sub

Mail To: info@3pc.com