Dim tbHeight As Integer = 25
With pd.RectangleToScreen(pd.ClientRectangle)
  Dim bmp As New Bitmap(.Width, .Height - tbHeight, _
    Imaging.PixelFormat.Format24bppRgb)
  Using g As Graphics = Graphics.FromImage(bmp)
    g.CopyFromScreen(.Left, .Top + tbHeight - 1, 0, 0, New Size(.Width, .Height _
      - tbHeight))
  End Using
  bmp.Save(DateiSp, Drawing.Imaging.ImageFormat.Jpeg) 
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de