Dim ChkBox As CheckBox = Nothing
 
        For Each xObject As Object In Me.GroupBox1.Controls
            If TypeOf xObject Is CheckBox Then
                ChkBox = xObject
                ChkBox.Checked = True
            End If
        Next

 For Each ctrl As Control In Me.Controls
 
            If TypeOf ctrl Is CheckBox Then
                DirectCast(ctrl, CheckBox).CheckState = CheckState.Checked
            End If
 
        Next

Public Class Form1
 
' Esta es la función que se llamará al producirse el evento CheckedChange del CheckBox
    Private Sub LlamadaCheckBox(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim CheckboxN As CheckBox = CType(sender, CheckBox) 'a partir del sender creo el CheckBox (paso de objet a CheckBox para poder utilizar sus propiedades)
        msgbox("Me pinchaste, la cagaste xD")
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim mCheck(2) As CheckBox 'matriz que contendrá los 3 CheckBox
        For i As Int32 = 0 To mCheck.Length - 1
            mCheck(i) = New CheckBox() 'creo un CheckBox en cada espacio de la matriz
            With mCheck(i)
                .Text = "Checkbox" & i + 1 ' Le adjunto un nombre Checkbox1 / Checkbox2 y 3
                .Location = New Point(20, i * 30) ' Sin más los situo....
            End With
            AddHandler mCheck(i).CheckedChanged, AddressOf LlamadaCheckBox'Asocio el evento CheckedChange del CheckBox actual a la función LlamadaCheckBox
            Me.Controls.Add(mCheck(i)) 'Añado el control al formulario, es decir, lo dibujo
        Next
    End Sub
End Class
 

  Public Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        playertextbox.Text = My.Settings.playerpath
        foldertextbox.Text = My.Settings.folderpath
        updatefoldernames()
    End Sub
 
    Public Sub updatefoldernames()
        Dim List As Integer = 0
        Dim posy As Integer = 10
 
        filesystem = CreateObject("Scripting.FileSystemObject")
        ThisDir = filesystem.GetFolder(My.Settings.folderpath)
 
        For Each folder In ThisDir.Subfolders
            List = List + 1
            posy = posy + 20
            Dim newCheckBox As New CheckBox()
            Panel1.Controls.Add(newCheckBox)
            newCheckBox.Name = "checkbox" & List.ToString()
            newCheckBox.Text = folder.name
            newCheckBox.Location = New Point(10, posy)
            'MessageBox.Show(newCheckBox.Name.ToString())
 
            Dim checkbox_selected As String = "checkbox" & List.ToString()
            If My.Settings.checkbox_selected = "Y" Then newCheckBox.Checked = True
        Next
    End Sub

 newCheckBox.Name = "checkbox" & List.ToString()

Panel1.Controls.Add(newCheckBox)
newCheckBox.Name = "checkbox" & List.ToString()

    Private Sub GenerarPropiedades(ByVal mCheckBox As CheckBox())
        For Each checkboxN As CheckBox In mCheckBox 'por cada CheckBox en mCheckBox
'Creo una propiedad con el nombre del CheckBox
'De esta forma cada CheckBox tendrá una propiedad equivalente
            My.Settings.Properties.Add(New Configuration.SettingsProperty(checkboxN.Name))
'Meto el valor de la propiedad Checked en la nueva propiedad que hemos creado para el CheckBox
            My.Settings.Properties.Item("CheckBox").DefaultValue = checkboxN.Checked
        Next
        My.Settings.Save()
    End Sub