PtwInfo Example for Visual Basic

   Public WithEvents RasTwain As LEADRasterTwain
   Private Sub RasterTwain_AcquirePageEvent(ByVal pBitmap As Long)
      ' This sample code is for the AcquirePageEvent handler
      ' For another example, refer to the tutorials
      Dim nRet As Integer, n As Integer
      Dim twExt As New twExtImageInfo
      
      If (Not twExt Is Nothing) Then
         twExt.NumOfInfos = 1
         twExt.ptwInfo(0).InfoID = L_TWEI_BARCODETEXT
         twExt.ptwInfo(0).ItemType = L_TWTY_UINT32
         nRet = RasTwain.GetExtImageInfo (twExt) 
         If (nRet = 0) Then
            If (twExt.ptwInfo(0).CondCode = L_TWCC_SUCCESS) Then
               For n = 0 To twExt.ptwInfo(0).NumOfItems - 1 Step 1
                  Item = twExt.ptwInfo(0).Item(n, 0) 
                  ' Do more processing on the item value
               Next n
            End If
         End If
      End If
   End Sub