//File:Window.xaml.vb Imports System Imports System.Windows Imports System.Windows.Controls Imports System.Windows.Input Namespace Commands Public Partial Class Window1 Inherits Window Private myCmd As RoutedCommand Private Sub New() Dim myInputs As New InputGestureCollection() myInputs.Add(New KeyGesture(Key.G, ModifierKeys.Control Or ModifierKeys.Shift)) myCmd = New RoutedCommand("Go", GetType(Window1), myInputs) End Sub Private Sub ExecuteCommandClickEvent(sender As Object, e As RoutedEventArgs) myCmd.Execute(sender, Nothing) End Sub End Class End Namespace