[Resolvido]Esperar x tempo antes de iniciar proxima acção

Amigos é possivel adiccionar um codigo para que a proxima acçao seja efectuada apos x tempo

If frmCurrentForm.Name <> "Principal" Then (espera x tempo e )
DoCmd.Close acForm, frmCurrentForm.Name
End If

Obrigado

Tente algo assim:

Dim ContaTempo as long
ContaTempo = ContaTempo + 1

If ContaTempo >= 30 Then ' tempo em segundos
    If Me.Name <> "Principal" Then
        DoCmd.Close acForm, Me.Name
    End If
End If

Se você for colocar isso diretamente no formulário, nem precisa passar o nome do formulário:

Dim ContaTempo as Long
ContaTempo = ContaTempo + 1

If ContaTempo >= 30 Then ' tempo em segundos

    DoCmd.Close

End If

Amigo Criquio
O codigo completo que estou a usar é o seguinte:

' Desactivar etiquetas
' Encerrar SubMenus
Private Sub Detalle_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim frmCurrentForm As Form
Set frmCurrentForm = Screen.ActiveForm
If frmCurrentForm.Name <> "Principal" Then
DoCmd.Close acForm, frmCurrentForm.Name
End If
DesactivaLabel Me
End Sub

adaptei o seu codigo:
Private Sub Detalle_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim frmCurrentForm As Form
Dim ContaTempo As Long
ContaTempo = ContaTempo + 1
If ContaTempo >= 30 Then
If Me.Name <> "Principal" Then
DoCmd.Close acForm, Me.Name
End If
End If
DesactivaLabel Me
End Sub

E como sempre funcionou lindamente
Muito obrigado e abraço

Valeu amigo. Grato pelo retorno.