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