Imports Infragistics.Win.UltraWinStatusBar
...
Private Sub Set_the_Panel_Style_to_Marquee_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