Dim Rect As Rectangle = WebBrowser1.ClientRectangle
Dim bmp As Bitmap = New Bitmap(Rect.Width, Rect.Height)
Using G As Graphics = Graphics.FromImage(bmp)
    G.CopyFromScreen(WebBrowser1.PointToScreen(Rect.Location), New Point(0, 0), _
      bmp.Size)
    bmp.Save(Pfad, Imaging.ImageFormat.Jpeg)
End Using