BitBlt spørgsmål

Jeg er igang med at lave et spil á la de gamle arkadeflyspil. Til at tegne de forskellige figurere bruger jeg "TransparentBlt", og tegner i en picturebox hvor autoredraw er slået til.
Koden jeg bruger til at tegne figurene er som følger:

Private Function Blt(FigurNr As Graphic, Optional X As Integer = 0, _
    Optional Y As Integer = 0, Optional Sov As Integer = 10) As Boolean

    Dim CurrentFrame As Integer, TotalFrames As Integer, RetVal As Integer
    Dim destWidth As Single, destHeight As Single, srcX As Single, srcWidth As Single
   
    TotalFrames = Val(pic(FigurNr).Tag)
   
    destHeight = pic(FigurNr).ScaleHeight
    'Hvis der kun er én frame
    If TotalFrames = 0 Then
        destWidth = pic(FigurNr).ScaleWidth
       
        picDest.Cls
        RetVal = TransparentBlt(picDest.hdc, X, Y, destWidth, destHeight, pic(FigurNr).hdc, 0, 0, destWidth, pic(FigurNr).ScaleHeight, TransColor)
        If RetVal = 1 Then Blt = True
        picDest.Refresh
    Else
        Do Until CurrentFrame = TotalFrames
            destWidth = pic(FigurNr).ScaleWidth / TotalFrames
            'Gå én frame frem
            CurrentFrame = CurrentFrame + 1
            srcX = destWidth * CurrentFrame
            srcWidth = destWidth
           
            picDest.Cls
            RetVal = TransparentBlt(picDest.hdc, X, Y, destWidth, destHeight, pic(FigurNr).hdc, srcX, 0, destWidth, pic(FigurNr).ScaleHeight, TransColor)
            If RetVal = 1 Then Blt = True
            picDest.Refresh
            Sleep Sov
   
            DoEvents
        Loop
    End If
End Function

Mit spørgsmål er hvordan jeg skal lave kode så billederne ikke flakker, f.eks. ved blot at optegne én figur ad gangen, og ikke, som ved min kode, optegne hele pictureboxen igen...
-Sion