OK ...
This is the Method which refers to (for example) the Click-Event. You could modify it like you need it :
Private Sub WochenElement_Click(sender As Object, e As System.EventArgs)
Dim mySender As Button = Sender
End Sub
Now the way to create some Buttons in a Loop :
For i as integer = 1 To 6
Dim myButton As New Button
myButton.Backcolor = Color.Gray
myButton.Name = "Week_" + i.ToString
myButton.Parent = Me
AddHandler myButton.Click, AddressOf WochenElement_Click
Next
this method-part need to be placed where you want to create the controls.
I hope this solves your question ...
Additional Information :
If you dispose your parent-Control (which hosts your in this way created elements) you have to remove all of this "Manual" created Handlers by RemoveHandler !