| 投稿日 | ： 2004/01/04(Sun) 08:14 |
| 投稿者 | ： nobu |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: ForNext文で次の動作までに時間を作りたい |
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ' <=== 追加
> Dim n As Integer
> Dim c As Integer
> For n = 0 To 1500 Step 50
> For c = 20 To 250 Step 10
DoEvents ' <=== 追加
Sleep 10 ' <=== 追加
> Picture1.ForeColor = RGB(1 + c, 1 + c, 1 + c)
> Picture1.Line (1500 - n, 1500 - n)-(1500 + n, 1500 + n), , B
> Next c
> Next n
取り敢えずは上記でどうでしょうか？
Sleep に関してはこちらのＨＰにあったと思います。