TxtEditor - File New Option.

'------------------------------------------------------------------------------------------
'           Notice of My Copyright and Intellectual Property Rights
'
' Any intellectual property contained within the program by Joseph L. Bolen remains the
' intellectual property of the Joseph L. Bolen. This means that no person may distribute,
' publish or provide such intellectual property to any other person or entity for any
' reason, commercial or otherwise, without the express written permission of Joseph L.
' Bolen.
'
'                 Copyright © 2015. All rights reserved.
'        All trademarks remain the property of their respective owners.
'-------------------------------------------------------------------------------------------
' Program Name:   Text Editor
'
' Author:         Joseph L. Bolen
' Date Created:   Feb 2015
'
' Description:    Simple plain text editor program with printing ability.
'
'                 Documentation is at:
'                   App's screen image is at: http://imgur.com/TzWs9kO
'                   App's screen design time specs at: http://pastebin.com/bhinRQ5d
'                   App's Visual Basic .NET Event Procedures & TODO's is at
'                       http://pastebin.com/UZ4tcEpE
'                   App's Visual Basic .NET code is at http://pastebin.com/u/jaybeeoh
'                   Video tutorial at YouTube: http://www.youtube.com/user/bolenpresents
'-------------------------------------------------------------------------------------------

#Region "  Declare class level variables"

    Public applicationTitle As String = My.Application.Info.Title
    Private workingPathFile As String = String.Empty

#End Region

    ' File New option.
    Private Sub NewToolStripMenuItem_Click(sender As Object, e As EventArgs) _
        Handles NewToolStripMenuItem.Click, NewToolStripButton.Click

        If SaveChanges() Then
            SaveToolStripMenuItem_Click(sender, e)
        End If

        workingPathFile = String.Empty
        Me.Text = applicationTitle

        With MyTextBox
            .Clear()
            .Modified = False
            .Focus()
        End With
    End Sub

    ' If MyTextBox has been modifed, check to see if changes should be saved.
    Private Function SaveChanges() As Boolean

        If (MyTextBox.Modified) AndAlso (Not String.IsNullOrWhiteSpace(MyTextBox.Text)) Then
            If MsgBoxResult.Yes = MessageBox.Show("Do you want to save your changes?",
                            "Save Changes",
                            MessageBoxButtons.YesNo,
                            MessageBoxIcon.Question) Then
                Return True
            End If
        End If
        Return False
    End Function