new pause funchion

[ladoo]

Private Sub TimeOut(HowLong)
    Dim TheBeginning
    Dim NoFreeze As Integer
    TheBeginning = Timer


    Do
        If Timer - TheBeginning >= HowLong Then Exit Sub
        NoFreeze% = DoEvents()
    Loop
End Sub

use
TimeOut 4