WPF VB.Net Tutorial

    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
    Private frameTimer As System.Windows.Threading.DispatcherTimer
    Private lastTick As Integer
    Private rand As Random
    Public Sub New()
      InitializeComponent()
      Me.WindowState = WindowState.Maximized
      Me.WindowStyle = WindowStyle.None
      Me.ResizeMode = ResizeMode.NoResize
    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