Private Sub SaveFormClientRect(ByVal frm As Form, ByVal pfad As String)
  Dim r As Rectangle = RectangleToScreen(frm.ClientRectangle)
  Using bmp As Bitmap = New Bitmap(r.Width, r.Height), G As Graphics = _
    Graphics.FromImage(bmp)
     G.CopyFromScreen(r.Left, r.Top, 0, 0, bmp.Size)
     bmp.Save(pfad, Imaging.ImageFormat.Jpeg)
  End Using
End Sub