AE中添加自定义工具的问题

<P>在AE中做工具条的时候，利用ToolBarControl只能得到少量的工具，要想再添加自定义的工具就必须自己做.dll的文件添加吗？有没有别的办法</P>
<P>我自己做的一个.dll文件中的onclick事件是这样编写的，但是总是添加不了shp文件啊~</P>
<P>With m_pSourceForm.CmnDlg
   .DialogTitle = "&Ccedil;&euml;&Ntilde;&iexcl;&Ocirc;&ntilde;&Ograve;&ordf;&Igrave;í&frac14;&Oacute;&micro;&Auml;&ETH;&Icirc;&Icirc;&Auml;&frac14;&thorn;"
   .Filter = "&ETH;&Icirc;&Icirc;&Auml;&frac14;&thorn;(*.shp)|*.shp"
   .ShowOpen
 End With
 Dim path As String
 Dim ShpName As String
 Dim i As Integer
 
 path = m_pSourceForm.CmnDlg.FileName
 ShpName = m_pSourceForm.CmnDlg.FileTitle
 i = InStr(path, ShpName)
 path = Left(path, i - 1)
 m_pApp.mapcontrol1.AddShapeFile path, ShpName</P>

<P>请高手指点迷津！</P>

同时用vb提供的工具条和Arctools,放在不同的 地方就可以了