picturebox visual on/off

Jeg har det her:

    Dim gr As Graphics = PictureBox1.CreateGraphics
        Dim image_a As Bitmap
        Dim i, a As Integer

        image_a = Bitmap.FromFile("tallgrass.bmp")
        For a = 0 To 300 Step 30
            For i = 0 To 300 Step 50
                gr.DrawImage(image_a, i, a)
            Next
        Next




Hvordan gør jeg så det er skjult menes der tegnes billeder og først bliver vis når det er slut... Der kommer til at komme mange billeder som man så scroller rundt på, så det ser jo underligt ud, hvis den arbjeder med at tegne , lad os sige, 100 billeder...

jeg har prøvet med enable og visual, men de fungere ikke...