Sub GetContractInfo(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 End Sub