docs-desktop/dotnet-desktop-guide/samples/snippets/visualbasic/wpf/introduction-to-wpf/introduction-to-wpf_6.vb

Imports System.Windows ' Window

Namespace SDKSample

    Partial Public Class DataBindingWindow
        Inherits Window

        Public Sub New()
            InitializeComponent()

            ' Create Person data source
            Dim person As Person = New Person()

            ' Make data source available for binding
            Me.DataContext = person

        End Sub

    End Class

End Namespace