QueryCapability Example for Visual Basic

    Dim iRet As Integer
    Dim RasterTwain As New LEADRasterTwain
    Dim TwainCap As New LEADRasterTwainCapability
        
    TwainCap.ConType = L_TWON_DONTCARE16
    TwainCap.Capability = L_ICAP_UNITS
    
    iRet = RasterTwain.QueryCapability(TwainCap) 
    If (iRet <> 0) Then
       MsgBox "Error Getting Capability"
    End If