[求助]createcustomtool的使用

<P>在vb中使用 createcustomtool 时出错</P>
<P>代码是： Map1.Layers.CreateCustomTool linetool, miToolTypePoly, miSelectCursor</P>
<P>出错界面是：  实时错误 '438'</P>
<P>                      对象不支持该属性或方法              </P>
<P>请问是否还需要其他的什么设置或者写什么方法？</P>