Private Const SRCCOPY As Integer = &HCC0020
 
    Private Declare Function BitBlt _
   Lib "gdi32.dll" ( _
   ByVal hdcDest As IntPtr, _
   ByVal x As Int32, _
   ByVal y As Int32, _
   ByVal Width As Int32, _
   ByVal Height As Int32, _
   ByVal hdcSrc As IntPtr, _
   ByVal xSrc As Int32, _
   ByVal ySrc As Int32, _
   ByVal dwRop As Int32 _
   ) As Boolean
 
    Private formImage As Bitmap
 
Private Sub xyz
' Graphics-Objekt für die Form erzeugen 
Dim formGraphics As Graphics = MyPanel.CreateGraphics
 
' Kompatible Bitmap erzeugen und Graphics-Objekt abholen 
formImage = New Bitmap(MyPanel.Width - 3, MyPanel.Height - 3, formGraphics)
' um 3 Pixel reduziert, da sonst schwarzer Rand rechts und unten!
Dim memGraphics As Graphics = Graphics.FromImage(formImage)
 
' Quell- und Ziel-DCs abholen 
Dim sourceDC As IntPtr = formGraphics.GetHdc
Dim targetDC As IntPtr = memGraphics.GetHdc
 
' Kopieren ("Screenshot") 
BitBlt(targetDC, 0, 0, MyPanel.ClientRectangle.Width, _
  MyPanel.ClientRectangle.Height, _
sourceDC, MyPanel.ClientRectangle.X, MyPanel.ClientRectangle.Y, SRCCOPY)
' DCs freigeben 
formGraphics.ReleaseHdc(sourceDC)
formGraphics.Dispose()
memGraphics.ReleaseHdc(targetDC)
memGraphics.Dispose()
 
Dim BF As System.Drawing.Imaging.ImageFormat
BF = Drawing.Imaging.ImageFormat.Jpeg         
formImage.Save(Pfad, BF)
formGraphics.Dispose()
End Sub