[Resolvido] Tempo para Execução de comando

Galera, estou com uma dúvida.

É possivel colocar um timer para que um comando só seja executado depois de certo tempo?

gostaria de fazer algo como isso:

Private Sub Login_Click()
If IsNull(caixalogin) And IsNull(caixasenha) Then
   Me.Imagem45.Visible = False
   Me.Imagem47.Visible = False
   Me.Imagem48.Visible = True
   Me.Rótulo39.Visible = True
   Me.Rótulo32.Visible = False
   Me.caixalogin.SetFocus
   End If
If Not IsNull(caixalogin) And Not IsNull(caixasenha) Then
       If verificaLogin(caixalogin, caixasenha) Then
           Me.Imagem45.Visible = False
           Me.Imagem47.Visible = True
           Me.Imagem48.Visible = False
           'O comando executaria até este ponto, e somente depois de certo tempo ele executaria o restante das ações.
           DoCmd.Close
           DoCmd.OpenForm "frmPrincipal"

Cole este código num modulo e salve;

Código:

Public Function TimeDelay(TSegundos As Integer, ByVal TEventos As Boolean)
'JPaulo
'MaximoAccess 
    ' Coloque em segundos
    Dim IniciaContagem As Date
 
    If TSegundos < 1 Then
        Exit Function
    End If
    IniciaContagem = Now
    Do Until DateDiff("s", IniciaContagem, Now) > TSegundos
        If TEventos Then
            DoEvents
        End If
    Loop
End Function

If Not IsNull(caixalogin) And Not IsNull(caixasenha) Then
If verificaLogin(caixalogin, caixasenha) Then
Me.Imagem45.Visible = False
Me.Imagem47.Visible = True
Me.Imagem48.Visible = False

TimeDelay 3, True '3 segundos de espera, pode aumentar se preferir

DoCmd.Close
DoCmd.OpenForm "frmPrincipal"

Obrigado JPaulo!
Funcionou direitinho.

Obrigado pelo retorno o forum agradece.