PictureBox1に数字をどんどん加算して書いていく場合、

Dim g As Graphics = PictureBox1.CreateGraphics
Dim f As Font = New Font("arial", 24)
Dim s As SolidBrush = New SolidBrush(Color.Lime)
Dim i As Integer
For i = 1 To 10000
g.Clear(Color.Black)
g.DrawString(i, f, s, 0, 0)
Next

だと、文字がチカチカしてしまう。
g.Clear(Color.Black)で画面を黒く塗りつぶしているからだと思うだけど、
何か対策法ないでしょか！？