Aggiungi etichette a livello di codice in una colonna: vb.net, vb.net-2010

Quindi ecco il mio codice. Non funziona. Le etichette non appaiono. Non sono riuscito a trovare il mio errore.

 For i = 0 To 408 Step 51
Dim text As Integer = 0
Dim label as New Label
Dim name As String = "lbl" + CStr(i)

With label
.Location = New Point(49, 33 + i)
.Size = New Size(32, 32)
.Name = name
.Font = New Font("Microsoft Sans Serif", FontStyle.Bold)
.Text = CStr(text)
.Visible = True
End With

Me.Controls.Add(label)
text += 1
Next

Qualcuno può segnalarlo?

risposte:

Cambia la linea in cui crei il carattere

.Font = New Font("Microsoft Sans Serif", 12, FontStyle.Bold)

Specificare la dimensione altrimenti è di default alla taglia 1. Non molto visibile.
Si noti inoltre che si imposta il testo variabile a zero ad ogni ciclo, quindi tutti i controlli hanno lo stesso testo.