GetCapability2 Example for Visual FoxPro 6

#define L_LTWAIN_CAPABILITY_GETCURRENT 3
#define L_ICAP_UNITS 258
#define L_TWON_DONTCARE16 -1

oTwainCap.CapInfo.ConType = L_TWON_DONTCARE16
oTwainCap.CapInfo.Capability = L_ICAP_UNITS
iRet = oRasterTwain.GetCapability2(oTwainCap, L_LTWAIN_CAPABILITY_GETCURRENT)
If iRet <> 0 Then
   MessageBox("Error Getting Capability"+Str(iRet))
EndIf