[Resolvido]Temporizador para fechar formulário

Boa noite,
Como criar o temporizador no código abaixo?

Private Sub cboIntegrante_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
      DoCmd.OpenForm "frmIntegrantesEdição", , , , , acDialog
      AGUARDAR 10 SEGUNDOS
      DoCmd.CloseForm "frmIntegrantesEdição"
End Sub

Grato

Colar esta função num modulo e salvar;

Código:

Public Function TimeDelay(TSegundos As Integer, ByVal TEventos As Boolean)
'By JPaulo Maximo Access 2009
  Dim IniciaContagem As Date
 
  If TSegundos < 1 Then  ' Tempo em segundos
      Exit Function
  End If
  IniciaContagem = Now 'inicia contagem de espera através da hora do sistema.
  Do Until DateDiff("s", IniciaContagem, Now) > TSegundos
      If TEventos Then
          DoEvents
      End If
  Loop
End Function

No seu código;

Código:


Private Sub cboIntegrante_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
      DoCmd.OpenForm "frmIntegrantesEdição", , , , , acDialog
      TimeDelay 10, True ' tempo de pausa
      DoCmd.CloseForm "frmIntegrantesEdição"
End Sub


Valeu meu caro. Muito obrigado

Obrigado pelo retorno o forum agradece.