RightMargin Example for Visual FoxPro 6

#define L_TWON_ONEVALUE 5
#define L_LTWAIN_CAPABILITY_SET 1
#define L_TWTY_UINT16 4
#define L_TWUN_INCHES 0
#define L_ICAP_FRAMES 4372
#define L_TWTY_FRAME 8

twFrm = CreateObject("twFrame.twFrame.146")

oTwainCap.EnableMethodErrors = .F.
oTwainCap.CapInfo.Capability = L_TWUN_INCHES
oTwainCap.CapInfo.ConType = L_TWON_ONEVALUE
oTwainCap.CapOneValue.OneValItemType = L_TWTY_UINT16
#define VALUE_USHORT 4 
CapVal = CreateObject("LEADRasterVariant.LEADRasterVariant.146")
CapVal.Type = VALUE_USHORT
CapVal.LongValue = L_TWUN_INCHES
oTwainCap.CapOneValue.OneValCapValue = CapVal

twFrm.RightMargin = 0
twFrm.LeftMargin = 0
twFrm.BottomMargin = 10
twFrm.TopMargin = 10

oTwainCap.EnableMethodErrors = .F.
oTwainCap.CapInfo.Capability = L_ICAP_FRAMES
oTwainCap.CapInfo.ConType = L_TWON_ONEVALUE
oTwainCap.CapOneValue.OneValItemType = L_TWTY_FRAME
#define VALUE_DISPATCH  24
   CapVal.Type = VALUE_DISPATCH
   CapVal.DispatchValue = twFrm
oTwainCap.CapOneValue.OneValCapValue = CapVal

oRasterTwain.SetCapability2(oTwainCap, L_LTWAIN_CAPABILITY_SET)