Sticky Window1 в MainWindow

Question

1- Создание vb.net / WPF приложения.

2- Скопируйте и вставьте следующий код в MainWindow.xaml file.

<Window x:Class="MainWindow"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="MainWindow" Height="350" Width="525">
<Grid>
    <Button x:Name="Button1" Height="30" Width="90" Content="Open Window1"/>
</Grid>
</Window>

3- Скопируйте и вставьте следующий код в MainWindow код позади.

Class MainWindow 
Private Sub Button1_Click(sender As Object, e As RoutedEventArgs) Handles Button1.Click
    Dim myWindow1 As New Window1 With {.Owner = Me}
    myWindow1.Show()
End Sub
End Class

4- Добавьте новое окно в проект и назовите его Window1.

5- Скопируйте и вставьте следующий код в Window1 код позади.

Public Class Window1
Private Sub Window1_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
    Dim myPoint As System.Windows.Point
    myPoint = PresentationSource.FromVisual(Me).CompositionTarget.TransformFromDevice.Transform(Application.Current.MainWindow.PointToScreen(New System.Windows.Point(0, 0)))
    Me.Left = myPoint.X + 50
    Me.Top = myPoint.Y + 50
End Sub
End Class

6- Запустите этот проект.

7- Нажмите Button1.

8- Перетащите Главное окно.

Вы увидите, что Window1 не прилипает к MainWindow при перетаскивании MainWindow!

Другими словами Window1 не следует MainWindow при перетаскивании MainWindow!

Итак, как прикрепить Window1 к MainWindow!