スキルアップ・問題解決なら、モーグにおまかせ！

サンプルでは、Timer関数を使って、5秒後にフォーム「フォーム1」を表示しています。

Sub Sample()
    Dim PauseTime As Variant
    Dim Start As Variant
    
    MsgBox "5秒後にフォームが表示されます"
    
    PauseTime = 5                ' 中断時間を設定します。
    Start = Timer                ' 中断の開始時刻を設定します。
        
    Do While Timer < Start + PauseTime
        DoEvents                ' 他のプロセスに制御を渡します。
    Loop
    
    DoCmd.OpenForm "フォーム1"
        
End Sub

このサンプルでは、DoEventsステートメントを使って、
プログラムが中断している間も他のプロセスを割り込みで処理できます。