going to sleep

Public Declare Function sleep (ByVal seconds As Long) As Boolean

Private Sub Me_OnUnload()
call sleep(1)
End Sub