PictureBoxでのアニメーションのちらつき防止

タイマーを使って，以下のような感じで PictureBox にCircleを動かす簡単なアニメーションを作成しているのですが，Timer.Interval=10で描画がかなりちらついてしまいます．
この場合，ちらつきを無くすような方法はありませんでしょうか．よろしくお願いします．

Private Sub Timer1_Timer()
Picture1.Cls
Picture1.Circle (x,y), 30, vbRed
x = x + 1
y = y + 1
End Sub

No.1 ベストアンサー 回答者： NATCHI 回答日時： 2003/02/04 16:13

Picture1のAutoRedrawがFalseになっていませんか？

Trueにすると改善されると思うのですが（＾＾

それでもダメならAutoRedrawをTrueにして、下のようにしてみては。

Private Sub Timer1_Timer()
Picture1.Visible = False
Picture1.Cls
Picture1.Circle (x, y), 30, vbRed
Picture1.Visible = True

x = x + 1
y = y + 1
End Sub

この回答へのお礼

たしかに「AutoRedrawをTrue」で改善されました．
またDirectXでダブルバッファを使うことでも改善されました．
ありがとうございました m(__)m

お礼日時：2003/02/05 01:07