Imports Infragistics.Win
Imports Infragistics.Win.UltraWinToolTip
Private Sub InitializeToolTips()
' Set the InitialDelay to 1 second.
Me.UltraToolTipManager1.InitialDelay = 1000
' Set the AutoPopDelay to 10 seconds.
Me.UltraToolTipManager1.AutoPopDelay = 10000
' Set the DisplayStyle to BalloonTip.
Me.UltraToolTipManager1.DisplayStyle = ToolTipDisplayStyle.BalloonTip
' Enable the ToolTipManager
Me.UltraToolTipManager1.Enabled = True
' Assign an Image to all tooltips.
Me.UltraToolTipManager1.ToolTipImage = ToolTipImage.Info
' Apply a title to all tooltips.
Me.UltraToolTipManager1.ToolTipTitle = "This is the title of the tooltip."
' Apply an appearance
Me.UltraToolTipManager1.Appearance.BackColor = Color.White
Me.UltraToolTipManager1.Appearance.BackColor2 = Color.Chartreuse
Me.UltraToolTipManager1.Appearance.BackGradientStyle = GradientStyle.Circular
Me.UltraToolTipManager1.Appearance.ForeColor = Color.Black
' Apply an appearance to the Title.
Me.UltraToolTipManager1.ToolTipTitleAppearance.ForeColor = Color.Red
' Get the ToolTipInfo for TextBox1
Dim toolTipInfo As UltraToolTipInfo = Me.UltraToolTipManager1.GetUltraToolTip(Me.TextBox1)
' Set the ToolTipText
toolTipInfo.ToolTipText = "This is textBox1."
' Get the ToolTipInfo for TextBox2
toolTipInfo = Me.UltraToolTipManager1.GetUltraToolTip(Me.TextBox2)
' Set the ToolTipText
toolTipInfo.ToolTipText = "This is textBox2."
' Get the ToolTipInfo for TextBox3
toolTipInfo = Me.UltraToolTipManager1.GetUltraToolTip(Me.TextBox3)
' Set the ToolTipText
toolTipInfo.ToolTipText = "This is textBox3."
End Sub