Программное переключение свойств пунктов меню ToolStripMenuItem — Checked и Enabled (True/False)

Imports System.Windows.Forms
 
Public Class MainForm
 
    Private currentCheckedItem As ToolStripMenuItem
    Private previousCheckedItem As ToolStripMenuItem
 
    Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles Me.Load
        previousCheckedItem = UTF8ToolStripMenuItem1 'ПУНКТ МЕНЮ, ВЫБРАННЫЙ ПО УМОЛЧАНИЮ
    End Sub
 
    'БЛОК УПРАВЛЕНИЯ КНОПКАМИ ИСПРАВЛЕНИЯ КОДИРОВКИ
 
    Private Sub ASCIIToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ASCIIToolStripMenuItem1.Click
        Click_Handler_ToolStripMenuItem(ASCIIToolStripMenuItem1)
    End Sub
 
    Private Sub ANSIToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ANSIToolStripMenuItem1.Click
        Click_Handler_ToolStripMenuItem(ANSIToolStripMenuItem1)
    End Sub
 
    Private Sub UTF7ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles UTF7ToolStripMenuItem1.Click
        Click_Handler_ToolStripMenuItem(UTF7ToolStripMenuItem1)
    End Sub
 
    Private Sub UTF8ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles UTF8ToolStripMenuItem1.Click
        Click_Handler_ToolStripMenuItem(UTF8ToolStripMenuItem1)
    End Sub
 
    Private Sub UTF16LEToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles UTF16LEToolStripMenuItem1.Click
        Click_Handler_ToolStripMenuItem(UTF16LEToolStripMenuItem1)
    End Sub
 
    Private Sub UTF16BEToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles UTF16BEToolStripMenuItem1.Click
        Click_Handler_ToolStripMenuItem(UTF16BEToolStripMenuItem1)
    End Sub
 
    Private Sub UTF32ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles UTF32ToolStripMenuItem1.Click
        Click_Handler_ToolStripMenuItem(UTF32ToolStripMenuItem1)
    End Sub
 
    Private Sub Click_Handler_ToolStripMenuItem(ByVal currentCheckedItem)
        With previousCheckedItem
            .Enabled = True
            .Checked = False
        End With
        With currentCheckedItem
            .Enabled = False
            .Checked = True
        End With
        previousCheckedItem = currentCheckedItem
    End Sub
 
End Class

Public Class MainForm
 
    Private Sub MainForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ToolStripMenuItem2.Checked = True
        ToolStripMenuItem2.Enabled = False
    End Sub
 
    Private Sub ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripMenuItem2.Click,
                                                                                                ToolStripMenuItem3.Click,
                                                                                                ToolStripMenuItem4.Click,
                                                                                                ToolStripMenuItem5.Click,
                                                                                                ToolStripMenuItem6.Click,
                                                                                                ToolStripMenuItem7.Click,
                                                                                                ToolStripMenuItem8.Click
        For Each t As ToolStripMenuItem In ИсправитьКодировкуToolStripMenuItem.DropDownItems
            t.Checked = False
            t.Enabled = True
        Next
        Dim m As ToolStripMenuItem = sender
        m.Checked = True
        m.Enabled = False
    End Sub
 
 
End Class

    Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ASCIIToolStripMenuItem1.Click, ANSIToolStripMenuItem1.Click, _
        UTF7ToolStripMenuItem1.Click, UTF8ToolStripMenuItem1.Click, UTF16LEToolStripMenuItem1.Click, UTF16BEToolStripMenuItem1.Click, _
        UTF32ToolStripMenuItem1.Click
        For Each t As ToolStripMenuItem In ToolStripDropDownButton1.DropDownItems
            t.Checked = False
            t.Enabled = True
        Next
        Dim m As ToolStripMenuItem = sender
        m.Checked = True
        m.Enabled = False
    End Sub