//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() chkLControl.IsChecked = Keyboard.IsKeyDown(Key.LeftCtrl) chkRControl.IsChecked = Keyboard.IsKeyDown(Key.RightCtrl) End Sub End Class End Namespace