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