For I = 0 To 10
	Me.checkBox1(I) = New System.Windows.Forms.CheckBox
	Me.checkBox1(I).Location = New System.Drawing.Point(10, 30 + I * 20)
	Me.checkBox1(I).Size = New System.Drawing.Size(200, 20)
	Me.checkBox1(I).Text = "Coche " & CStr(I)
	Me.checkBox1(I).Checked = False
	ReDim Me.checkBox1(I).Tag(1)
	Me.checkBox1(I).Tag(0) = I
	Me.checkBox1(I).Tag(1) = "Tag" & CStr(I)
	Me.GroupBox1.Controls.Add(Me.checkBox1(I))
	AddHandler checkBox1(I).CheckedChanged, New EventHandler(AddressOf checked)
Next I

'Et dans la fonction checked, ça va donner ceci
'L'index qui est stocké dans Tag(0) va servir à mettre d'autre composant visible ou non
	Private Sub checked(ByVal sender As System.Object, ByVal e As System.EventArgs)
		debut(sender.Tag(0)).Visible = sender.checked
		fin(sender.Tag(0)).Visible = sender.checked
		de(sender.Tag(0)).Visible = sender.checked
		a(sender.Tag(0)).Visible = sender.checked
	End Sub

'Et dans une autre fonction, je pourrais utiliser l'Id qui se trouve dans Tag(1)
	basedonnee.ouvertureRST("insert into table values(" & sender.Tag(1) & ",'" &  _
    de(sender.Tag(0)).text & "')")