Public Class MyPanel
    Inherits Panel
    Public Sub New()
        Me.DoubleBuffered = True
    End Sub
End Class

Dim bm As New Bitmap(800, 800)
Pb.DrawToBitmap(bm, New Rectangle(0, 0, 800, 800))
Pnl.BackgroundImage = bm