Public Class Form1
 
    Dim g As Graphics
    Dim bgContext As BufferedGraphicsContext
 
    Dim bg1 As BufferedGraphics
    Dim bg2 As BufferedGraphics
 
    Dim rect1 As Rectangle
    Dim rect2 As Rectangle
 
    Public Sub init()
        Me.DoubleBuffered = True
 
        g = Me.Panel1.CreateGraphics
 
        bgContext = BufferedGraphicsManager.Current
        bg1 = bgContext.Allocate(g, Me.Panel1.DisplayRectangle)
        bg2 = bgContext.Allocate(g, Me.Panel1.DisplayRectangle)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        init()
    End Sub
 
    Private Sub Panel1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
        'Buffer 1
        bg1.Graphics.Clear(Color.Transparent)
 
        rect1 = New Rectangle(20, 20, 50, 50)
 
        bg1.Graphics.DrawRectangle(Pens.Green, rect1)
        bg1.Graphics.FillRectangle(Brushes.Green, rect1)
        bg1.Render(g)
 
        'Buffer 2
        bg2.Graphics.Clear(Color.Transparent)
 
        rect2 = New Rectangle(e.X, e.Y, 20, 20)
 
        bg2.Graphics.DrawRectangle(Pens.Red, rect2)
        bg2.Render(g)
    End Sub
End Class