//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Input
Namespace NonRectangularWindowSample
Public Partial Class NonRectangularWindow
Inherits Window
Public Sub New()
InitializeComponent()
End Sub
Private Sub NonRectangularWindow_MouseLeftButtonDown(sender As Object, e As MouseButtonEventArgs)
Me.DragMove()
End Sub
Private Sub closeButtonRectangle_Click(sender As Object, e As RoutedEventArgs)
Me.Close()
End Sub
End Class
End Namespace