Public Class ImageConverter
    Public Enum enumImageTypes
        Bitmap = 0
        Jpeg = 1
        Gif = 2
        Tiff = 3
        Png = 4
    End Enum
 
    Public ConvertPath1, ImagePath, ImageConvertName As String
    Public ImageType As enumImageTypes
    Public imgwidth, imgheight, Quality As Integer
 
    Public Sub ConvertImage()
        Dim bild As Image = bild.FromFile(ImagePath, True)
        Dim convbild As New Bitmap(imgwidth, imgheight)
        Dim convbild_d As Graphics = Graphics.FromImage(convbild)
        Dim imgCodecs() As System.Drawing.Imaging.ImageCodecInfo = _
          System.Drawing.Imaging.ImageCodecInfo.GetImageEncoders()
        ' Set quality Parameter for the Jpeg codec
        Dim imgParams As System.Drawing.Imaging.EncoderParameters = New _
          System.Drawing.Imaging.EncoderParameters(1)
        Dim imgQuality As System.Drawing.Imaging.EncoderParameter = New _
        System.Drawing.Imaging.EncoderParameter( _
        System.Drawing.Imaging.Encoder.Quality, Quality)
        'bild resizen
        convbild_d.DrawImage(bild, 0, 0, imgwidth, imgheight)
        'create final image
        'convbild_d soll zum speichern in das image-objekt "bild" 
        ' zurückgeschrieben 
        'werden
        'bild.FromIrgendwas(convbild_d)
        '
        'Set quality
        imgParams.Param(0) = imgQuality
        'save
        bild.Save(ConvertPath1 & ImageConvertName, imgCodecs(ImageType), _
          imgParams)
        bild.Dispose()
    End Sub
End Class

signaturen find ich bl?de