Public Function PicResize(ByVal SourceImage As String, ByVal NewFile As _
      String, Optional ByVal NewWidth As Integer = 0, Optional ByVal NewHeigth _
      As Integer = 0, Optional ByVal Percent As Integer = 0) As Bitmap
        Dim Breite As Integer
        Dim hoehe As Integer
 
        Using InputBitmap As New Bitmap(SourceImage)
 
            If NewHeigth = 0 And NewWidth = 0 Then
                Breite = InputBitmap.Width * Percent / 100
                hoehe = InputBitmap.Height * Percent / 100
            ElseIf NewHeigth = 0 And NewWidth <> 0 Then
                Dim SizeFactor As Decimal = NewWidth / InputBitmap.Width
                hoehe = SizeFactor * InputBitmap.Height
                Breite = NewWidth
            ElseIf NewHeigth <> 0 And NewWidth <> 0 Then
                Breite = NewWidth
                hoehe = NewHeigth
            End If
            Dim OutputBitmap As New Bitmap(System.Drawing.Image.FromFile( _
              SourceImage), Breite, hoehe)
            PicResize = OutputBitmap
 
 
            InputBitmap.Dispose()
            Me.Finalize()
            OutputBitmap.Save(NewFile, System.Drawing.Imaging.ImageFormat.Jpeg)
            OutputBitmap.Dispose()
            Return OutputBitmap
        End Using
    End Function