sleep中に割り込むには？ (ID:113256)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 失礼しました。 .NET でしたね。 Private Sub WaitTime(ByVal st As Long) Dim lngSt As Long lngSt = System.Environment.TickCount Do While System.Environment.TickCount - lngSt < st Application.DoEvents() System.Threading.Thread.Sleep(10) Loop End Sub