なめらかに動かしたい

Visual Basic　２０１０で作っています。 ピクチャーボックス(縦５００横１５００)上を縦棒を移動するプログラムです Dim g As Graphics = Me.PictureBox1.CreateGraphics() For k = 1 to 100 For j = 1 to 20000 For i = 1 to 1000 StartBlack = i + 50 Startwhite = i g.FillRectangle(Brushes.Black, StartBlack, 0, 50, 500) g.FillRectangle(Brushes.White, Startwhite, 0, 50, 500) Next System.Threading.Thread.Sleep(2) Next Next このプログラムを 　Celeron で動かすと　時々引っかかるような動きになります。 Core 2 Quad　で動かすとなめらかに動きます。 Celeron 上でもなめらかな動きにするにはどうしたらいいでしょうか？