WPF-Drawing Canvas Control

Public Class XAMLViewer

    Private Sub Window_Loaded(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded

    End Sub

    Public Sub New(ByVal doc As XDocument)

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        txtDocument.Text = doc.ToString

       
    End Sub

    Private Sub Border_MouseDown(sender As System.Object, e As System.Windows.Input.MouseButtonEventArgs)
        '  Me.DragMove()
    End Sub

    Private Sub TextBlock_MouseDown(sender As System.Object, e As System.Windows.Input.MouseButtonEventArgs)
        Me.DragMove()
    End Sub

    Private Sub btn_AddPicture_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles btn_AddPicture.Click
        Me.Close()
    End Sub
End Class