Изменение и запоминание значения TrackBar при выборе одной из RadioButton

Public Class Form1
    '' Объявляем переменную i и коллекцию ParamCollection
    Dim WithEvents i As New MyVariable(Of Integer)
    Dim ParamCollection As New List(Of Param)
 
    '' Задаем вид элемента коллекции
    Public Class Param
        Dim Vertical As Double
        Property MyVertical() As Double
            Get
                Return Vertical
            End Get
            Set(ByVal value As Double)
                Vertical = value
            End Set
        End Property
    End Class
 
    '' При загрузке формы создаем коллекцию с пустыми параметрами
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim P As New Param
        P.MyVertical = 0
        For g = 0 To 1
            ParamCollection.Add(P)
        Next
    End Sub
 
    '' при выборе радиокнопки меняем значение i (0 или 1)
    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Me.i.Value = 0
    End Sub
    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Me.i.Value = 1
    End Sub
 
    '' При изменении значения i меняем значение TrackBar1 на значение из коллекции с соответствующим индексом
    Private Sub i_OnChange(ByVal sender As Object, ByVal e As System.EventArgs) Handles i.OnChange
        TrackBar1.Value = ParamCollection.Item(i.Value).MyVertical
    End Sub
 
    '' При изменении значения TrackBar записываем в коллекцию с соответствующим индексом
    Private Sub TrackBar1_changed(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.ValueChanged
        ParamCollection.Item(i.Value).MyVertical = TrackBar1.Value
    End Sub
End Class
 
'' Класс для отслеживания изменения переменной i. Взят с форума. Работает.
Friend Class MyVariable(Of T)
    Private pvalue As T
    Friend Event OnChange(ByVal sender As Object, ByVal e As System.EventArgs)
    Friend Property Value() As T
        Get
            Return pvalue
        End Get
        Set(ByVal value As T)
            If Not pvalue.Equals(value) Then
                pvalue = value
                RaiseEvent OnChange(Me, New System.EventArgs)
            End If
        End Set
    End Property
End Class

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        Dim temp As Integer = TrackBar1.Value
        TrackBar1.Value = CInt(TrackBar1.Tag)
        TrackBar1.Tag = temp
        CheckBox1.Text = IIf(CheckBox1.Checked, "Первое значение", "Второе значение").ToString()
    End Sub