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