Effects Example for Visual Basic

Private Sub TestEffects()
   Dim fContrast As Single
   Dim fHighlight As Single

   fContrast = RasterTwain.ImageContrast
   fHighlight = RasterTwain.ImageHighlight

   Dim strMsg As String
   strMsg = "Image Contrst = " + CStr(fContrast) + Chr(13) + "Image Highlight = " + CStr(fHighlight)
   MsgBox strMsg

   RasterTwain.ImageBrightness = 100#

   RasterTwain.PaperSize = L_TWSS_A4
   RasterTwain.PaperDirection = L_TWOR_LANDSCAPE
End Sub