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