' Bild aus Datei laden und in neuer Größe abspeichern
Public Sub ResizePictureAndSave(ByVal oPicBox As PictureBox, _
  ByVal sFile As String, ByVal sNewFile As String, _
  ByVal nWidth As Long, ByVal nHeight As Long)
 
  With oPicBox
    ' kein Rahmen
    .BorderStyle = 0
 
    ' ScaleMode auf Pixel festlegen
    .ScaleMode = vbPixels
 
    ' PictureBox auf gewünschte Größe bringen
    .Width = .Parent.ScaleX(nWidth, vbPixels, .Parent.ScaleMode)
    .Height = .Parent.ScaleY(nHeight, vbPixels, .Parent.ScaleMode)
 
    ' Inhalt löschen
    .Cls
 
    ' Bild in gewünschter Größe anzeigen
    .AutoRedraw = True
    .PaintPicture LoadPicture(sFile), 0, 0, nWidth, nHeight
 
    ' Bild speichern
    SavePicture .Image, sNewFile
 
    .AutoRedraw = False
  End With
End Sub

ResizePictureAndSave PictureBox, PfadDesBildes, OutputVerzeichnis, neueBreite, _
  neueHöhe