Imports Infragistics.Win.UltraWinStatusBar ... Private Sub WinStatusBarQuickTourKeyStatePanel_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Me.UltraStatusBar1.Panels.Add("KeyState", PanelStyle.KeyState) Me.UltraStatusBar1.Panels("KeyState").KeyStateInfo.Key = KeyState.CapsLock Me.UltraStatusBar1.Panels("KeyState").KeyStateInfo.DisplayStyle = KeyStateDisplayStyle.ChangeText Me.UltraStatusBar1.Panels("KeyState").KeyStateInfo.OffText = "NOCAPSLOCK" Me.UltraStatusBar1.Panels("KeyState").KeyStateInfo.OnText = "CAPSLOCK" End Sub