1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 : 24 : 25 : 26 : 27 : 28 : 29 :
d'I 'Faire tandis qu'I < numCtls Obscurcir le ctlLabel en tant que nouvelle étiquette ctlLabel.Name = « étiquette » et i.ToString () ctlLabel.Text = « voici boîte des textes # » et i.ToString () et » : « Panel1.Controls.Add (ctlLabel, 0, i) Faible ctlTextBox en tant que nouvelle boîte à textes ctlTextBox.Name = « ctlTextBox » et i.ToString () ctlTextBox.Text = « boîte à textes » et i.ToString () Panel1.Controls.Add (ctlTextBox, 1, i) i += 1 'Finir tandis que 'je = I + 1 Boucle
1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 :
Faire tandis qu'I < countnotes="">