For t As Integer = 1 To 42
            Dim btn As New Button
            btn.Name = "btn" & t.ToString
            Links = Links + 1 : If Links = 8 Then Links = Links - 7 : Oben = _
              Oben + Buttongrösse
            btn.Top = Oben
            btn.Left = ((Links - 1) * Buttongrösse) + 1
            btn.Width = Buttongrösse
            btn.Height = Buttongrösse
            btn.Font = Font
            btn.FlatStyle = FlatStyle.Flat
            btn.FlatAppearance.BorderSize = 0
            btn.Visible = True
           Me.pnlCalPad.Controls.Add(btn)
            AddHandler btn.MouseDown, AddressOf Tagesklick
        Next
 
    Private Sub Tagesklick(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs)
        For t = 1 To 42
            Dim Control As String = CType(sender, Button).Name
        Next
    End Sub

Ich arbeite mit:
Windows 10 Professional 64-bit * Visual Basic 2010 Express