[VBA]关于对话框上的工具栏的问题

yoursmile

我在AutoCAD中做一个无模式对话框，并对话框上做一个工具栏，在其上添加了一个工具栏和一个ImageList，并设置了其中的图片后，想用如下的方法：

Set Toolbar1.ImageList = ImageList1

Dim tmpBtn As Button
Set tmpBtn = Toolbar1.Buttons.Add(, "a", , tbrDefault, "a")
Set tmpBtn = Toolbar1.Buttons.Add(, "b", , tbrDefault, "b")
Set tmpBtn = Toolbar1.Buttons.Add(, "c", , tbrDefault, "c")

编译没错，但在运行时得到了运行时类型不匹配的错误！

请问这是什么原因呀？