//File:Window.xaml.vb Imports System Imports System.Collections.Generic Imports System.Text Imports System.Windows Imports System.Windows.Controls Imports System.Windows.Data Imports System.Windows.Documents Imports System.Windows.Input Imports System.Windows.Media Imports System.Windows.Media.Imaging Imports System.Windows.Shapes Namespace Windows Public Partial Class WindowOwnership Inherits System.Windows.Window Public Sub New() InitializeComponent() End Sub Private Sub cmdCreate_Click(sender As Object, e As RoutedEventArgs) Dim win As New WindowOwnership() win.Owner = Me win.Title = "Owned Window" win.Height = Me.Height / 2 win.Width = Me.Width / 2 win.WindowStartupLocation = WindowStartupLocation.CenterOwner win.Show() End Sub End Class End Namespace