TxtEditor - Format Menu Options - FontDialog

'------------------------------------------------------------------------------------------
'           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 " Format Menu"

    ' Format Word Wrap option.
    Private Sub WordWrapToolStripMenuItem_Click(sender As Object, e As EventArgs) _
        Handles WordWrapToolStripMenuItem.Click

        MyTextBox.WordWrap = Not MyTextBox.WordWrap
        WordWrapToolStripMenuItem.Checked = MyTextBox.WordWrap
        If MyTextBox.WordWrap Then
            MyTextBox.ScrollBars = ScrollBars.Vertical
        Else
            MyTextBox.ScrollBars = ScrollBars.Both
        End If
    End Sub

    ' Format Font option.
    Private Sub FontToolStripMenuItem_Click(sender As Object, e As EventArgs) _
        Handles FontToolStripMenuItem.Click

        FontDialog1.ShowColor = True
        FontDialog1.ShowApply = True
        FontDialog1.Font = MyTextBox.Font
        FontDialog1.Color = MyTextBox.ForeColor
        If FontDialog1.ShowDialog() = DialogResult.OK Then
            With MyTextBox
                .Font = FontDialog1.Font
                .ForeColor = FontDialog1.Color
            End With
        End If
    End Sub

    ' Apply FontDialog changes.
    Private Sub FontDialog1_Apply(sender As Object, e As EventArgs) _
        Handles FontDialog1.Apply

        With MyTextBox
            .Font = FontDialog1.Font
            .ForeColor = FontDialog1.Color
        End With
    End Sub

#End Region