Ajout d'un event sur génération textbox

Bonjour,
Je génère des textbox dans un panel avec un certain nombre de propriété et je cherche à rajouter un événement "OnMouseDoubleClick" à toutes les textbox. J'ai regardé les instructuions "addHandler" mais j'avoue que je suis un peu perdu.

Voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10

For count = 0 To 200 Dim r1 As New TextBox r1.BorderStyle = BorderStyle.Fixed3D r1.Dock = DockStyle.Fill r1.ForeColor = Color.Blue   Panel.Controls.Add(r1, 0, count)   Next

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

For count = 0 To 200 Dim r1 As New TextBox r1.BorderStyle = BorderStyle.Fixed3D r1.Dock = DockStyle.Fill r1.ForeColor = Color.Blue AddHandler r1.MouseDoubleClick, AddressOf textBox_MouseDoubleClick   Panel.Controls.Add(r1, 0, count)   Next   ...   Private Sub textBox_MouseDoubleClick(sender As Object, e As MouseEventArgs) ... End Sub

---

Merci beaucoup pour cette réponse rapide et précise.
C'était pourtant simple :roll: ...