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