GetIntProperty example

This example illustrates the use of GetIntProperty.

 

Dim PropName As String

Dim myScanObj As Object

Dim Msg As String

 

Set myScanObj = Application.FormDef.ScannerSettings

 

PropName = "cDPI"

Msg = PropName & "=" & myScanObj.GetIntProperty(PropName)

 

PropName = "cContrast"

Msg = Msg & ", " & PropName & "=" & myScanObj.GetIntProperty(PropName)

 

PropName = "cBrightness"

Msg = Msg & ", " & PropName & "=" & myScanObj.GetIntProperty(PropName)

 

MsgBox Msg