Dim Ciapp As Cardiris.Application
        Dim ccard As Cardiris.ICard
        Dim res As Cardiris.CiReturnValue
 
        res = Ciapp.Scan(txtimg.Text, 500, _
          Cardiris.CiScannerModel.ciScannerModelA6, _
          Cardiris.CiColorMode.ciColorModeColor, _
          Cardiris.CiResolution.ciResolution400)
        Call Ciapp.PreProcess(txtimg.Text, True, True, _
        Cardiris.CiRotation.ciRotationNone)
 
        ccard = Ciapp.Recognize(txtimg.Text, Cardiris.CiCountry.ciCtryGermany, _
          True)
 
        txtvalue.Text = ccard.FirstName
        txtvalue.Text = txtvalue.Text & ccard.LastName

Public Overridable Function Scan(ByVal bs_ImageFile As String, ByVal l_hWnd As _
  Integer, ByVal ScannerModel As Cardiris.CiScannerModel, ByVal ColorMode As _
  Cardiris.CiColorMode, ByVal Resolution As Cardiris.CiResolution) As _
  Cardiris.CiReturnValue
     Member von: Cardiris.Application