...
Imports vbImgFormat = System.Drawing.Imaging.ImageFormat
Imports vbImaging = 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 vbImaging.EncoderParameters(1)
    Dim myEncoder = vbImaging.Encoder.Quality
    Dim tQuality As Long = 10L
    Dim myEncoderParameter As vbImaging.EncoderParameter = New _
      vbImaging.EncoderParameter(CType(myEncoder, vbImaging.Encoder), tQuality)
    Dim myImageCodecInfo As vbImaging.ImageCodecInfo
 
    myEncoderParameters.Param(0) = myEncoderParameter
    tFilePath = Me.myPath & "\" & Me.myFileName & "." & Me.myFormat
 
    Select Case Me.myFormat
      Case Application.myFormat.Bitmap
        aPicture.Save(tFilePath, vbImgFormat.Bmp)
      Case Application.myFormat.Emf
        aPicture.Save(tFilePath, vbImgFormat.Emf)
      Case Application.myFormat.Gif
        myImageCodecInfo = Functions.getEncoderInfo("image/gif")
        aPicture.Save(tFilePath, myImageCodecInfo, myEncoderParameters)
      Case Application.myFormat.Jpg
        myImageCodecInfo = Functions.getEncoderInfo("image/jpeg")
        aPicture.Save(tFilePath, myImageCodecInfo, myEncoderParameters)
      Case Application.myFormat.Png
        aPicture.Save(tFilePath, vbImgFormat.Png)
      Case Application.myFormat.Tif
        aPicture.Save(tFilePath, vbImgFormat.Tiff)
      Case Application.myFormat.Wmf
        aPicture.Save(tFilePath, vbImgFormat.Wmf)
    End Select
  End Sub
  ...
End Class