Vb.net creer plusieur bouton

Bonjour,

voila mon problème, je souhaiterais généré plusieurs boutons lorsque je clique sur un bouton.
J'ai déjà fais le code suivant pour en généré un mais je ne sais pas comment on fait pour en généré plusieurs en même temps.

Private Sub GenererDesBoutons()
' Déclarer le bouton
Dim btn As New Button

' Lui donner une position
For i = 0 To 3
btn.Location = New Drawing.Point(26, 55)
btn.Size = New Size(47, 37)
Next

' L'ajouter à la collection des contrôles de la fenêtre
Me.Controls.Add(btn)
End Sub