Effects Example for Visual Basic

Dim RasterTwain As New LEADRasterTwain_U

RasterTwain.InitSession hWnd
RasterTwain.SelectSource

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