GetScanConfigs Example for Visual Basic

Private Sub Command5_Click()
   Dim nRet As Integer
   Dim str As String

   'Unlock Document support.
   'Note that this is a sample key, which will not work in your toolkit.
   RasterTwain.UnlockSupport L_SUPPORT_DOCUMENT, "TestKey"

   nRet = RasterTwain.GetScanConfigs(1, L_LTWAIN_BUFFER_MODE, 5)
   If nRet = 0 Then
      MsgBox "GetScanConfigs method was successful."
      MsgBox "Scan Configuration count = " + CStr(RasterTwain.ScanConfigCount)

      str = "Transfer Mode = " + CStr(RasterTwain.ScanConfig(0).TransferMode) + Chr(13) + _
            "File Format = " + CStr(RasterTwain.ScanConfig(0).FileFormat) + Chr(13) + _
            "Buffer Size = " + CStr(RasterTwain.ScanConfig(0).BufferSize) + Chr(13) + _
            "Required Time = " + CStr(RasterTwain.ScanConfig(0).RequiredTime)

      MsgBox str, vbOKOnly, "Scan Configurations..."
   Else
      MsgBox "Error occurred in the GetScanConfigs method!!!", vbOKOnly, "Error!!!"
   End If
End Sub