Oprette flere knapper med løkke

Drejer det sig om et bestemt antal?

nej det gør det ikke. Der jeg gerne vil have hjælp til er en eller anden form for next løkke.

Hej,
Hvis jeg har forstået dig korrekt, så er det noget i denne stil, du ønsker. Det væsentlige trick er, at du skal huske at koble en delegate på knappernes clickevent med AddHandler.

Oprettelse af knapper dynamisk:

Private Sub CreateButtons(ByVal numberOfButtons As Integer)
  For i As Integer = 0 To numberOfButtons - 1
    Dim btn As New Button()
    btn.Location = New Point(10, 25 * i) ' eller hvor de nu skal placeres - burde nok være parametre til metoden
    btn.Name = "btn" + i.ToString()
    btn.Text = "Knap " + i.ToString()
    AddHandler btn.Click, AddressOf HandlerButtonClick ' kobler delegate på clickeventet
    Controls.Add(btn)
  Next
End Sub

Eventhandler, hvor alle dine dynamisk oprettede knappers clickevent håndteres:

Private Sub HandlerButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
  Dim btn As Button = CType(sender, Button)
  Dim btnIndex As Integer = System.Int32.Parse(btn.Name.Replace("btn", ""))
  ' Gøre hvad der nu skal gøres afhængigt af, hvilken knap det nu er der er trykket på
End Sub

Håber du kan bruge det.
Mvh.
Jens

Hej Jens
Det går lige et par dage inden jeg kan afprøve koden - men den ser meget spændende ud

Det virker bare
:-)