SetJPEGCompression Example for Visual Basic

Private Sub TestJPEGCompression()
   Dim nRet As Integer
   nRet = RasterTwain.GetJPEGCompression(L_LTWAIN_GET_JPEG_COMPRESSION) 
   If nRet = 0 Then
      RasterTwain.JPEGCompressionData.ColorSpace = L_TWPT_GRAY
      RasterTwain.JPEGCompressionData.SubSampling= &H10001000
      RasterTwain.JPEGCompressionData.NumComponents= 1
      RasterTwain.JPEGCompressionData.RestartFrequency= 0
      RasterTwain.JPEGCompressionData.QuantMap(0) = 0
      RasterTwain.JPEGCompressionData.HuffmanMap (0) = 0

      nRet = RasterTwain.SetJPEGCompression(L_LTWAIN_SET_JPEG_COMPRESSION) 
      If nRet = 0 Then
         MsgBox "Set JPEG compression options is success"
      End If
   End If
End Sub