Imports Infragistics.Win.UltraWinToolbars
...
Private Sub DisplayTooltipsforTools_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
' Caption プロパティをツールチップとして表示します。
Me.UltraToolbarsManager1.ShowToolTips = True
Dim btnNew As New ButtonTool("New")
Me.UltraToolbarsManager1.Tools.Add(btnNew)
Me.UltraToolbarsManager1.Toolbars(0).Tools.Add(btnNew)
btnNew.SharedProps.Caption = "New File"
btnNew.SharedProps.ToolTipText = "New File..."
End Sub