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