Timerイベントのフリーズ対策は？ (ID:125976)

名前

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

本文 なんでも固まるみたいですが・・・ >（Timerイベントが終了すると復帰しますが・・） 終了後は移動可能となります。 Private Sub Command1_Click() Me.Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Dim I As Integer For I = 1 To 10000 DoEvents Me.List1.AddItem I Next End Sub コマンド1をクリック ↓ フォームをドラッグし移動させる ↓ フォームがフリーズ状態になる ↓ 処理終了後は正常にもどる