FastConfigEvent Example for Visual Basic

Private Sub RasterTwain_FastConfigEvent(ByVal pltResConfig As LTRASTERTWAINLib.ILTFastConfig)
   Dim str As String
If pltResConfig.Success Then
   str = "Transfer Mode = " + CStr(pltResConfig.TransferMode) + Chr(13) + _
         "File Format = " + CStr(pltResConfig.FileFormat) + Chr(13) + _
         "Buffer Size = " + CStr(pltResConfig.BufferSize) + Chr(13) + _
         "Bits Per Pixel = " + CStr(pltResConfig.BitsPerPixel) + Chr(13) + _
         "Required Time = " + CStr(pltResConfig.RequiredTime)

   MsgBox str, vbOKOnly, "Resulting Scan Configurations..."
Else
   MsgBox "The tested scan configuration failed…"
EndIf
   RasterTwain.StopFindFastConfig = False
End Sub