Public Sub Backbuffering(ByVal bmpImage As Bitmap, ByVal rect As Rectangle)
 
 
        Dim BackBuffer As New Bitmap(bmpImage)
        Dim DrawingArea As Graphics = Graphics.FromImage(BackBuffer)
 
        Dim Printable As Graphics = Me.CreateGraphics()
        Dim Viewable As Graphics = Me.CreateGraphics()
 
        ' Next, you want to draw to your graphics object as normal, 
        ' so DrawingArea.Clear(Color.Black) and such.
 
        'DrawingArea.Clear(Color.Navy)
 
        Printable.DrawImage(bmpImage, rect)
 
        ' Once you've completed drawing the object that you want to 
        ' smoothly move, simply draw the pre-rendered bitmap over the top 
        ' of the Graphics object you want to update:
 
        Viewable.DrawImage(BackBuffer, rect)
 
    End Sub