またまた　つまってしまいました
少しお知恵をお貸しください

Sub StopTime()
    Dim St As Long
    St = time
    Do While Time - 100 < st
        DoEvents
    Loop
End Sub

との　プログラムを
ボタンを押したら（Command_Click）
強制的に直接停止することはできないのでしょうか？

いちいちDo While〜Loop内に　フラグを設けるしか方法はないのでしょうか？

どうか　お教えください

Dim St As Long をモジュールレベル変数で宣言すれば。

Option Explicit
Private St As Long

Private Sub Command1_Click()
    St = 0
End Sub

Sub StopTime()
    St = Timer
    Do While Timer - 100 < St
        DoEvents
    Loop
End Sub

# Time は　Timer の間違いでは？

お返事遅くなり　申し訳ありません

モジュールレベルに宣言すればよかったんですね
これは　いろいろ　応用がききそうです

どうも　ありがとうございました

> # Time は　Timer の間違いでは？
これは　このHPにのってました1/1000単位の数を取れる
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
APIを省略して　書いてしまいました＾＾；

では　失礼いたします