VBA フォームを複数表示した際、繰り返し実行マクロが停止する

Question

前提・実現したいこと

vbaでユーザーフォームにトグルボタンが配置してあります。
トグルボタンがONの時間を計測するプログラムを作りました。
（押されている間、1秒毎に数字が加算されていく）

この状態で、もう一つ別のフォームを表示し、フォームをドラッグしようとすると
ドラッグ状態では繰り返しタイマーがストップ（数字が加算されない）してしまう
のですが、何が原因でしょうか？
解決策はありますでしょうか？

該当のソースコード

Private Sub tog1_Click()
    If tog1.Value = True Then
        Dim waitTime As Variant

        waitTime = Now + TimeValue("0:00:01")
        Application.Wait waitTime

        Call macro1
    End If
    
End Sub

---標準モジュール上
Sub macro1()
'一定間隔で実行する
'OnTimeメソッドを使う

    If frmStopTIme.tog1.Value = True Then
        '1秒後にmacro100810aを実行
        Worksheets("工程表").Range("A11") = Worksheets("工程表").Range("A11") + 1
        frmStopTIme.Label1.Caption = Worksheets("工程表").Range("A11")
        Application.OnTime Now() + TimeValue("00:00:01"), "macro1"
        
    End If

End Sub

試したこと

フォームのモーダル表示

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

VBAはシングルスレッドなので、２つのコードを並行して実行できません。
また、ドラッグなどのマウス操作をしているとき、OnTime の指定時間になってもマクロは実行されません。

トグルボタンがONの時間を計測するプログラムを作りました。

上記の仕様上、OnTime では正確な時間は計測できません。

下記なら、Onの時間を正確に表示できます。

Option Explicit
Dim sTime As Date

Private Sub tog1_Click()
    If Tog1.Value Then
        sTime = Now
    Else
        Me.Label1.Caption = DateDiff("s", sTime, Now) & "秒間Onでした。"
    End If
End Sub

Answer 2

VBAのプログラム等は、Excelのメインスレッド(単一のスレッド）で実行されます。
同時に２つ以上の動作が行われることは無いということです。

質問に書かれているのは、以下のような経緯で起きたものと考えられます。
１）１つ目のフォームでマクロの実行が行われていた
２）ドラッグされたことでマクロの実行が中断した
３）ドラッグ動作のほうが実行された

フォームのマクロを実行する事と、ドラッグ動作の間に依存関係がないのであれば、
・元のExcelファイルのコピーを作る（同一ファイル名にならないようにコピーしたほうのファイル名を変更する）
・それぞれのExcelファイルを開き、マクロの実行とドラッグ動作を行う（別のExcelファイルなので、それぞれのメインスレッドで実行される）
・必要があれば、コピーしたほうのファイルから必要なデータを元のExcelに反映する。
という手順が可能だと思います。

＜参考情報＞
Excel でのマルチスレッド再計算　のページには、以下のように説明されています。

Excel は、次の項目の実行に単一のメイン スレッドを使用します。

組み込みコマンド
XLL コマンド
アドイン マネージャー インターフェイス関数 (xlAutoOpen 関数など)
Microsoft Visual Basic for Applications (VBA) のユーザー定義コマンド (通常はマクロと呼ばれま)
VBA のユーザー定義関数
組み込みのスレッド セーフではないワークシート関数 (次のセクションに一覧を示します)
XLM マクロ シートのユーザー定義コマンドとユーザー定義関数
COM アドインのコマンドと関数
条件付きフォーマット式内の関数と演算子
ワークシートの式で使用された定義済みの名前定義内の関数と演算子
数式編集ボックス内の式の強制的な評価 (F9 キーを使用)

ちなみに、セルに書かれたワークシート関数の再計算はマルチスレッドで行われます。

Answer 3

VBAの性質上、複数のイベントを同時に発生させることは不可能と思われます。
なのでドラッグ中の画面更新はあきらめるとして、カウントだけは正しく行われるような方向にするべきかと思います。
方法としては、ボタンクリックに開始時の時間を保持しておいて、1秒ごとのイベントでは現在時間と開始時間の差分で秒数を算出します。
以下サンプルです。

' フォーム
Private Sub tog1_Click()
    If tog1.Value = True Then
        Dim waitTime As Variant
        togSt = Now     ' 開始時間を保持
        waitTime = togSt + TimeValue("0:00:01")
        Application.Wait waitTime
        Call macro1
    End If
End Sub

' 標準モジュール
Public togSt
Sub macro1()
    If frmStopTIme.tog1.Value = True Then
        '1秒後にmacro100810aを実行
        Dim cnt
        cnt = DateDiff("s", togSt, Now)    ' 経過秒数を計算
        Worksheets("工程表").Range("A11") = cnt
        frmStopTIme.Label1.Caption = cnt
        Application.OnTime Now() + TimeValue("00:00:01"), "macro1"
    End If
End Sub