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()