QueryCapability Example for Visual FoxPro 6

#define L_ICAP_UNITS 258
#define L_TWON_DONTCARE16 -1
oRasTwainCap = CreateObject("LEADRasterTwainCapability.LEADRasterTwainCapability.145")
oRasTwainCap.ConType = L_TWON_DONTCARE16
oRasTwainCap.Capability = L_ICAP_UNITS

iRet = oRasterTwain.QueryCapability(oRasTwainCap) 
If iRet <> 0 Then
   MessageBox("Error Getting Capability"+Str(iRet))
EndIf