为何代码显示不了对话框？

寒风

2. Dim i As New PlotStyleDialog
   
3.         If i.ShowModal = True Then
   
4.             Application.ShowAlertDialog(i.PlotStyle.ToString)
   
5.         End If
   

Dim i As New PlotStyleDialog<br />         If i.ShowModal = True Then<br />             Application.ShowAlertDialog(i.PlotStyle.ToString)<br />         End If<br />

为何以上代码显示不了对话框？
用Application.ShowModalDialog 也显示不了

sieben

Dim i As New PlotStyleDialog
          Application.ShowAlertDialog(i.PlotStyle.ToString)
这样呢？

寒风

不是信息框，是变量  i   无法显示打印样式对话框