Case Application.myFormat.Bitmap

myImageCodecInfo = Functions.getEncoderInfo("image/jpeg")

Imports vbImaging = System.Drawing.Imaging

Imports vbImgFormat = System.Drawing.Imaging.ImageFormat
Imports System.Drawing.Imaging
Public Class Screenshot
    Private myPath As String
    Private myFileName As String
    Private myFormat As String
    Private myMode As String
    Private myCompression As Byte
 
    Private Sub savePicture(ByVal aPicture As System.Drawing.Bitmap)
        Dim tFilePath As String
        Dim myEncoderParameters As New Imaging.EncoderParameters(1)
        Dim myEncoder = Imaging.Encoder.Quality
        Dim tQuality As Long = 10L
        Dim myEncoderParameter As Imaging.EncoderParameter = New _
          Imaging.EncoderParameter(CType(myEncoder, Imaging.Encoder), tQuality)
        Dim myImageCodecInfo As Imaging.ImageCodecInfo
 
        myEncoderParameters.Param(0) = myEncoderParameter
        tFilePath = Me.myPath & "\" & Me.myFileName & "." & Me.myFormat
 
        Select Case myFormat
            Case "Bitmap"
                aPicture.Save(tFilePath, vbImgFormat.Bmp)
            Case "Emf"
                aPicture.Save(tFilePath, vbImgFormat.Emf)
            Case "Gif"
                myImageCodecInfo = GetEncoderInfo("image/gif")
                aPicture.Save(tFilePath, myImageCodecInfo, myEncoderParameters)
            Case "Jpg"
                myImageCodecInfo = GetEncoderInfo("image/jpeg")
                aPicture.Save(tFilePath, myImageCodecInfo, myEncoderParameters)
            Case "Png"
                aPicture.Save(tFilePath, vbImgFormat.Png)
            Case "Tif"
                aPicture.Save(tFilePath, vbImgFormat.Tiff)
            Case "Wmf"
                aPicture.Save(tFilePath, vbImgFormat.Wmf)
        End Select
    End Sub
 
    Private Function GetEncoderInfo(ByVal Mimetype As String) As ImageCodecInfo
        Dim i As Integer
        Dim encoders() As System.Drawing.Imaging.ImageCodecInfo
        encoders = ImageCodecInfo.GetImageEncoders
 
        For i = 0 To encoders.Length
            If encoders(i).MimeType = Mimetype Then
                Return encoders(i)
            Else
                'Return Nothing
            End If
        Next i
    End Function
 
End Class