主题：VBA套利模型范例

Sub TLStart()
 '注册CF09和CF11品种
 call marketdata.RegReportNotify("CF09","ZQ")
 call marketdata.RegReportNotify("CF11","ZQ")
End Sub

'响应注册的品种行情变化通知
Sub MARKETDATA_ReportNotify(ReportData)
 '得到这两个品种的行情报价
 Set Report1 = marketdata.GetReportData("CF09","ZQ")
 Set Report2 = marketdata.GetReportData("CF11","ZQ")

这里的获取行情信息，是不是重复了，既然已经使用RegReportNotify注册了品种，就可以在 MarketData_ReportNotity事件中获取价格了，所以，只需要判断ReportData返回的品种代码就可以知道是哪个品种的价格。

如：

if ReportData.label="CF09" then

    CF09Price=ReportData.BuyPrice1

else

    CF11Price=ReportData.SellPrice1

end if

Diff=CF09Price-CF11Price