Public Class SaveCurrProjWD

    Dim m_MainWindow As MainWindow = Application.Current.MainWindow

    Public sTextString As String = String.Empty

    Friend Shadows DialogResult As Integer = 0

    Private Sub Window_Initialized(sender As Object, e As EventArgs)
        Me.Owner = m_MainWindow
        Me.Height = m_MainWindow.Height / 12 * 2.5
        Me.Width = m_MainWindow.Width / 15 * 4
        Me.Top = m_MainWindow.Top + (m_MainWindow.Height / 2) - (Me.Height / 2)
        Me.Left = m_MainWindow.Left + (m_MainWindow.Width / 2) - (Me.Width / 2)
    End Sub

    Private Sub Window_Loaded(sender As Object, e As RoutedEventArgs)
        TextStringTxBl.Text = sTextString
    End Sub

    Private Sub YesBtn_Click(sender As Object, e As RoutedEventArgs) Handles YesBtn.Click
        DialogResult = 1
    End Sub

    Private Sub NoBtn_Click(sender As Object, e As RoutedEventArgs) Handles NoBtn.Click
        DialogResult = 2
    End Sub

    Private Sub CancelBtn_Click(sender As Object, e As RoutedEventArgs) Handles CancelBtn.Click
        DialogResult = 0
    End Sub

End Class