Dim bmp As Bitmap = New Bitmap(PicBox.Width, PicBox.Height)
Dim g As Graphics = Graphics.FromImage(bmp)
g.Clear(PicBox.BackColor)
g.DrawImage(PicBox.Image, 0, 0)
bmp.Save("TestBild1.bmp")
g.Dispose()
bmp.Dispose()

Using bmp As Bitmap = New Bitmap(PicBox.Width, PicBox.Height), g As Graphics = _
  Graphics.FromImage(bmp)
   g.Clear(PicBox.BackColor)
   g.DrawImage(PicBox.Image, 0, 0)
    bmp.Save("TestBild.bmp")
End Using

        Dim skalierung As Double
        Dim pngUserAvatarOriginal = ImageFromWeb(LoadPath)
        skalierung = pngUserAvatarOriginal.width / 133
        If (pngUserAvatarOriginal.Height / skalierung) > 133 Then
            skalierung = pngUserAvatarOriginal.Height / 133
        End If
        'neue Breite des Bildes
        Dim NewWidth As Integer = pngUserAvatarOriginal.Width / skalierung
        'Neue Höhe des Bildes
        Dim NewHeight As Integer = pngUserAvatarOriginal.Height / skalierung
        'Position des Bilder auf dem Hintergrund, nach Berechung immer mittig 
        ' positionieren
        Dim newLeft As Integer = (133 - NewWidth) / 2
        Dim NewTop As Integer = (133 - NewHeight) / 2
        'Hintergrund des Bildes
        Dim pngUserAvatarVoralge = New System.Drawing.Bitmap(133, 133, _
          System.Drawing.Imaging.PixelFormat.Format24bppRgb)
        Dim ResizeGraphics = System.Drawing.Graphics.FromImage( _
        pngUserAvatarVoralge)
        ResizeGraphics.CompositingMode = _
        Drawing.Drawing2D.CompositingMode.SourceOver
        ResizeGraphics.CompositingQuality = _
        Drawing.Drawing2D.CompositingQuality.HighQuality
        ResizeGraphics.InterpolationMode = _
        Drawing.Drawing2D.InterpolationMode.High
        ResizeGraphics.SmoothingMode = _
        Drawing.Drawing2D.SmoothingMode.HighQuality
        ResizeGraphics.TextRenderingHint = _
        Drawing.Text.TextRenderingHint.AntiAlias
        ResizeGraphics.Clear(System.Drawing.Color.White)
        ResizeGraphics.DrawImage(pngUserAvatarOriginal, newLeft, NewTop, _
          NewWidth, NewHeight)
        pngUserAvatarOriginal.Dispose()
        'Das komplette Bild speichern
        pngUserAvatarVoralge.Save(SavePath)
        pngUserAvatarVoralge.Dispose()

Dim bmp As Bitmap = New Bitmap(PicBox.Width, PicBox.Height)
Try
   Dim g As Graphics = Graphics.FromImage(bmp)
   Try
      g.Clear(PicBox.BackColor)
      g.DrawImage(PicBox.Image, 0, 0)
      bmp.Save("TestBild1.bmp")
   Finally
      g.Dispose()
   End Try
Finally
   bmp.Dispose()
End Try