这个程序应该怎样改?

<P>以下这段VBA中的程序应该怎样改,才能在AO+VB中运行?</P>
<P>Sub ShowTOC()<BR>   ' The dialog ID for the TOC is 6<BR>   If Not Application.IsDialogVisible(6) Then<BR>     Application.ShowDialog 6<BR>   End If<BR>End Sub <BR>我这样改不能运行:</P>
<P>Private Sub Command1_Click()<BR>Dim s As esriArcMap.Application<BR>If Not s.IsDialogVisible(6) Then<BR>s.ShowDialog 6<BR>End If<BR>End Sub</P>
<P> <img src="images/post/smile/dvbbs/em12.gif" /></P>

能不能具体点

说错了,用TOCControl

用ICommand

<P>Application是arcmap里的定义,vb里面没有iapplication,所以也没showdialog</P>
<img src="images/post/smile/dvbbs/em02.gif" />