使用order對象的Contract方法來獲取。

private iMultipliter,iMinTick,iShortPercent,iLongPercent

Sub GetContractHold(sCode,sMarket)  '獲取合約的信息
 'Application.MsgOut sCode & "," & sMarket
 on error resume next
 Call Order.Contract(sCode,sMarket,Multipliter,MinTick,ShortPercent,LongPercent)
 iMultipliter=Multipliter
 'application.MsgOut iMultipliter
 iMinTick=MinTick
 iShortPercent=ShortPercent
 iLongPercent=LongPercent
End Sub

有了保證金比例，你自己就能計算某品種的保證金額了，現價*合約乘數*保證金率。