Image Options Example for Visual Basic

Private Sub TestImageOptions()
   Dim nBPP As Integer
   Dim nUnit As Integer

   nUnit = RasterTwain.ImageUnit
   nBPP = RasterTwain.ImageBitsPerPixel

   If nUnit <> L_TWUN_INCHES Then RasterTwain.ImageUnit = L_TWUN_INCHES
   If nBPP <> 24 Then RasterTwain.ImageBitsPerPixel = 24
End Sub