主题：请帮助在启动软件时做一个股票池的弹框

 请帮助在启动软件时做一个股票池的弹框，确认后再运行股票池（不需要勾选股票池默认自动启动）。

这个弹框，我主要是用来避免软件启动时数据缺失而造成股票池胡乱交易，而如果不勾选软件的股票池自动启动选项又担心开机忘记运行股票池，所以才想在启动软件做一个股票池运行的确认弹框。

谢谢

将这段代码放到VBA的工程文档里，推荐放到Global模块中

Sub APPLICATION_Start()
 Set msgboxs = CreateObject("WWSCommon.MessageBoxEx")
 msgboxs.Button = 2
 msgboxs.IconType = 3
 rets = msgboxs.DoModal("是否启动股票池计算？","提示")
 If rets = 6 Then
  MarketData.StartStockPool()
 End If
End Sub

此主题相关图片如下：tim截图20180904181842.png