Only one control is added to groupBox

I'm trying to add controls to a groupBOx, but only the first one goes right.

Dim messageBoxErreur As New ErreurValidationXml
Dim fichier As FichierErreur
Dim nombreFichiersErrones As Integer
Dim listeLabelFichierErrones As New List(Of Label)
Dim unLabelDeFichier As Label

messageBoxErreur.nomsFichiers.FlatStyle = FlatStyle.System
messageBoxErreur.TexteFichierErrones.Text = vMessage
For Each fichier In rListeXmlInvalides
If Not fichier.erreurs.ToString.Equals("") Then
nombreFichiersErrones += 1
listeLabelFichierErrones.Add(CreerLabel(fichier, nombreFichiersErrones))
End If
For Each unLabelDeFichier In listeLabelFichierErrones

FUnction to create the labels
Private Function CreerLabel(ByRef rFichier As FichierErreur, ByVal vNombreFichiersErrones As Integer) As Label
Dim nomFichier As Label
nomFichier = New Label
nomFichier.Text = rFichier.nomFichier
nomFichier.Location = New Point(25, vNombreFichiersErrones * 10 + 25)
Return nomFichier
End Function


Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!