WPF VB.Net

    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="Concentric Rings" Width="910" Height="512">
  

//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Media
Imports System.Windows.Shapes
Imports System.Windows.Media.Animation
Namespace _360Timer
  Public Partial Class Window1
    Inherits Window
    Public Sub New()
      InitializeComponent()
      Me.Show()
      AddHandler Me.KeyDown, New System.Windows.Input.KeyEventHandler(AddressOf Window1_KeyDown)
    End Sub
    Private Sub Window1_KeyDown(sender As Object, e As System.Windows.Input.KeyEventArgs)
      If e.Key = System.Windows.Input.Key.Escape Then
        Me.Close()
      End If
    End Sub
  End Class
End Namespace