ImageEffects Example for Visual Basic

Private Sub Command1_Click()
   Dim RasterTwain As LEADRasterTwain

   Set RasterTwain = New LEADRasterTwain
   RasterTwain.EnableMethodErrors = False
   RasterTwain.InitSession hWnd

   RasterTwain.GetProperties

   RasterTwain.ImageEffects.PixelFlavor = L_TWPF_VANILLA
   RasterTwain.ImageEffects.ColorScheme = L_TWPT_BW
   RasterTwain.ImageEffects.HighLight = 50#
   RasterTwain.ImageEffects.Shadow = 50#
   RasterTwain.ImageEffects.Brightness = 500#
   RasterTwain.ImageEffects.Contrast = 100#

   MsgBox "Current used Halftone = " + RasterTwain.ImageEffects.HalfTone
   RasterTwain.SetProperties
   RasterTwain.EndSession
End Sub