第1个回答 2011-01-06
'为 Toolbar 创建对象变量。
Dim btnX As Button
'用 Add 方法将按钮对象添加到 Buttons 集合中。创建
'每个按钮后,设置 Description 和 ToolTipText 属性。
Toolbar1.Buttons.Add , , , tbrSeparator
Set btnX = Toolbar1.Buttons.Add(, , "open", tbrDefault)
btnX.ToolTipText = "Open File"
btnX.Description = btnX.ToolTipText