GetCapability2 Example for Visual Basic

Public WithEvents RasterTwain As LEADRasterTwain
Dim TwainCap As LEADTwainCapability

Private Sub Command1_Click()
   Dim iRet As Integer
   Set TwainCap = New LEADTwainCapability

   TwainCap.CapInfo.ConType = L_TWON_DONTCARE16
   TwainCap.CapInfo.Capability = L_ICAP_UNITS
   iRet = RasterTwain.GetCapability2(TwainCap, L_LTWAIN_CAPABILITY_GETCURRENT)
   If (iRet <> 0) Then
      MsgBox "Error Getting Capability"
   End If
   
   Set TwainCap = Nothing
End Sub