ActiveBar 是一款设计用户界面必不可少的 ActiveX 控件，如果你想让自己的程序变得更专业，就必须用它。使用它可以制作出像 Word 一样的个性化菜单、“自定义”对话框；像 Outlook 的快捷按钮栏；像 CorelDRAW 的入坞式窗口；像 Delphi 的控件选择页面。并且使用十分简单，保存设计图和加载设计图都十分简单，只用几个方法既可。SP3 中全面支持了 XP 样式，可以在非 XP 操作系统中实现XP 的介面。这个控件可以用在 VB5、VB6 和 VC++ 上。
以下是在程序中使用的部分代码：
Dim oTool As Tool
acbToolBar.Bands.Add '系统工程'
With acbToolBar.Bands('系统工程')
Set oTool = .Tools.Add(0, 'miProjLoad')
oTool.Caption = '&ProjLoad'
oTool.SetPicture Index:=0, Picture:=LoadPicture( _
App.Path & '\图标配置\工具栏图标\系统工程\ProjLoad.ico'), Color:=&HC0C0C0
oTool.Width = 15
oTool.ToolTipText = '载入工程'
oTool.BeginGroup = True
Set oTool = .Tools.Add(1, 'miProjSave')
oTool.Caption = '&ProjSave'
oTool.SetPicture Index:=0, Picture:=LoadPicture( _
App.Path & '\图标配置\工具栏图标\系统工程\ProjSave.ico'), Color:=&HC0C0C0
oTool.Width = 15
oTool.ToolTipText = '保存工程'
Set oTool = .Tools.Add(2, 'miProjClose')
oTool.Caption = '&ProjClose'
oTool.SetPicture Index:=0, Picture:=LoadPicture( _
App.Path & '\图标配置\工具栏图标\系统工程\ProjClose.ico'), Color:=&HC0C0C0
oTool.Width = 15
oTool.ToolTipText = '关闭工程'