Num módulo:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub Pausa(ByVal Segundos As Single)
'By JPaulo ® Maximo Access
Call Sleep(Int(Segundos * 1000#))
End Sub
Exemplo de pausar durante 5 segundos o fecho do formulario:
Private Sub Form_Close()
Pausa (5)
End Sub
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub Pausa(ByVal Segundos As Single)
'By JPaulo ® Maximo Access
Call Sleep(Int(Segundos * 1000#))
End Sub
Exemplo de pausar durante 5 segundos o fecho do formulario:
Private Sub Form_Close()
Pausa (5)
End Sub