//File:Window.xaml.vb Imports System Imports System.Windows Imports System.Windows.Input Namespace WpfApplication1 Public Partial Class Window1 Inherits Window Public Sub New() InitializeComponent() CheckKeyboardState() End Sub Private Sub Button_Click(sender As Object, e As RoutedEventArgs) CheckKeyboardState() End Sub Private Sub CheckKeyboardState() Console.WriteLine(Keyboard.IsKeyToggled(Key.CapsLock)) End Sub End Class End Namespace