Imports Infragistics.Win.UltraWinStatusBar
...
Private Sub WinStatusBarQuickTourMarqueePanel_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.UltraStatusBar1.Panels.Add("Marquee", PanelStyle.Marquee)
Me.UltraStatusBar1.Panels("Marquee").Text = "Infragistics rocks!"
Me.UltraStatusBar1.Panels("Marquee").MarqueeInfo.MarqueeStyle = MarqueeStyle.Scrolling
Me.UltraStatusBar1.Panels("Marquee").MarqueeInfo.IsActive = True
Me.UltraStatusBar1.Panels("Marquee").MarqueeInfo.Start()
End Sub