Toolbar.Buttons.Add , TaskName, DispText, 0
Toolbar.Button(TaskName).ToolTipText = TaskName

' Its in VB4 using Common Control 32 - ver 6.0