vb.net - サブルーチン間での文字列値の転送

Question

私は何らかの形で cb_CheckedChanged から frmMain_Load に転送する必要がある変数 Month1 と Month2 を持っています。文字列値を転送する方法がない場合、コードの一部を変更して可能にすることはできますか?

Public Class frmMain
    Private Sub cb_CheckedChanged(sender As Object, e As EventArgs) Handles chckJan.
   CheckedChanged,
   chckFeb.CheckedChanged,
   chckMar.CheckedChanged,
   chckApr.CheckedChanged,
   chckMay.CheckedChanged,
    chckJun.CheckedChanged,
   chckJul.CheckedChanged,
    chckAug.CheckedChanged,
chckOct.CheckedChanged,
  chckNov.CheckedChanged,
   chckDec.CheckedChanged


    'get all checkboxes
    Dim Months = Controls.OfType(Of CheckBox)().ToArray()
    'Get the number of checked CheckBoxes.
    Dim checkedBoxCount = Months.Count(Function(cb) cb.Checked)
    'Unchecked CheckBoxes should be enabled if and only if the number of checked CheckBoxes is less than the maximum number allowed.
    Dim enableUncheckedBoxes = checkedBoxCount < 2
    'Get the unchecked CheckBoxes.
    Dim uncheckedBoxes = Months.Where(Function(cb) Not cb.Checked)
    'Enable or disable the unchecked CheckBoxes as appropriate.
    For Each uncheckedBox In uncheckedBoxes
        uncheckedBox.Enabled = enableUncheckedBoxes
    Next

    Dim Month1 As String
    Dim Month2 As String

    Dim CheckBoxArray1 As CheckBox() = {chckJan, chckFeb, chckMar, chckApr, chckMay, chckJun, chckJul, chckAug, chckSep, chckOct, chckNov, chckDec}
    For Each CheckBox In CheckBoxArray1
        If CheckBox.Checked = True And checkedBoxCount = 1 Then
            Month1 = CheckBox.Name.ToString
        End If
    Next

    Dim CheckBoxArray2 As CheckBox() = {chckJan, chckFeb, chckMar, chckApr, chckMay, chckJun, chckJul, chckAug, chckSep, chckOct, chckNov, chckDec}
    For Each CheckBox In CheckBoxArray2
        If CheckBox.Checked = True And checkedBoxCount = 2 Then
            Month2 = CheckBox.Name.ToString
        End If
    Next

End Sub


Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load