' toolbarbuttons
btn1.New1
btn2.New1
btn3.New1
btn4.New1
btn5.New1
' tooltips
Tooltip.New1
Tooltip.SetToolTip("btn1", "Create New Database")
Tooltip.SetToolTip("btn2", "Open existing Database")
Tooltip.SetToolTip("btn3", "Save Database")
Tooltip.SetToolTip("btn4", "Save As... Database")
Tooltip.SetToolTip("btn5", "Close Database")
Sub ToolTip_Popup
Tooltip.IsBalloon = False
Tooltip.ToolTipTitle = ""
Tooltip.ToolTipIcon = 0 ' None = 0, Info = 1, Warning = 2, Error = 3
End Sub