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