How to create list with selected parameters?

Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.CheckedChanged
        If CheckBox4.Checked Then
            FlowLayoutPanel3.Show()
        Else
            FlowLayoutPanel3.Hide()
        End If
    End Sub

    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox5.CheckedChanged
        If CheckBox5.Checked Then
            FlowLayoutPanel2.Show()
        Else
            FlowLayoutPanel2.Hide()
        End If
    End Sub

    Private Sub CheckBox7_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox7.CheckedChanged
        If CheckBox7.Checked Then
            FlowLayoutPanel4.Show()
        Else
            FlowLayoutPanel4.Hide()
        End If
    End Sub

    Private Sub CheckBox10_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox10.CheckedChanged
        If CheckBox10.Checked Then
            FlowLayoutPanel5.Show()

        Else
            FlowLayoutPanel5.Hide()
        End If
    End Sub

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

        FlowLayoutPanel2.Hide()
        FlowLayoutPanel3.Hide()
        FlowLayoutPanel4.Hide()
        FlowLayoutPanel5.Hide()
        CheckBox4.Hide()
        CheckBox5.Hide()
        CheckBox6.Hide()
        CheckBox7.Hide()
        CheckBox8.Hide()
        CheckBox9.Hide()
        CheckBox10.Hide()

    End Sub



    Friend WithEvents RadioButton1 As RadioButton

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked Then
            CheckBox4.Show()
            CheckBox5.Show()
            CheckBox6.Show()
            CheckBox7.Show()
            CheckBox8.Hide()
            CheckBox9.Show()
            CheckBox10.Hide()

        Else
            CheckBox4.Hide()
            CheckBox5.Hide()
            CheckBox6.Hide()
            CheckBox7.Hide()
            CheckBox8.Hide()
            CheckBox9.Hide()
            CheckBox10.Hide()
            FlowLayoutPanel2.Hide()
            FlowLayoutPanel3.Hide()
            FlowLayoutPanel4.Hide()
            FlowLayoutPanel5.Hide()
        End If
    End Sub

    Friend WithEvents RadioButton2 As RadioButton
    Friend WithEvents RadioButton3 As RadioButton

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked Then
            CheckBox4.Hide()
            CheckBox5.Hide()
            CheckBox6.Hide()
            CheckBox7.Hide()
            CheckBox8.Show()
            CheckBox9.Hide()
            CheckBox10.Show()
        Else
            CheckBox4.Hide()
            CheckBox5.Hide()
            CheckBox6.Hide()
            CheckBox7.Hide()
            CheckBox8.Hide()
            CheckBox9.Hide()
            CheckBox10.Hide()
            FlowLayoutPanel2.Hide()
            FlowLayoutPanel3.Hide()
            FlowLayoutPanel4.Hide()
            FlowLayoutPanel5.Hide()
        End If

    End Sub

    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
        If RadioButton3.Checked Then
            CheckBox4.Hide()
            CheckBox5.Hide()
            CheckBox6.Hide()
            CheckBox7.Hide()
            CheckBox8.Show()
            CheckBox9.Hide()
            CheckBox10.Show()

        Else
            CheckBox4.Hide()
            CheckBox5.Hide()
            CheckBox6.Hide()
            CheckBox7.Hide()
            CheckBox8.Hide()
            CheckBox9.Hide()
            CheckBox10.Hide()
            FlowLayoutPanel2.Hide()
            FlowLayoutPanel3.Hide()
            FlowLayoutPanel4.Hide()
            FlowLayoutPanel5.Hide()

        End If
    End Sub

    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
        Me.Close()
    End Sub

    Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
        Form2.Show()
    End Sub
End Class