Alternatief voor DoEvents.

Option Compare Database
            Option Explicit
            Private Declare Sub sapiPauseer Lib "kernel32" _
                Alias "Sleep" (ByVal dwMilliseconds As Long)
            ++++++++++++++++++++++++++++++++++++++++++++++++++++++
            'alternatief voor DoEvents in VB ,stopt uitvoering code en geeft controle terug
            'naar operating system
            Sub sPauseer(lngMilliSec As Long)
                If lngMilliSec > 0 Then
                    Call sapiPauseer(lngMilliSec)
                End If
            End Sub