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