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