Private Sub Button_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        Me.ToolStripStatusLabel1.Text = CType(sender, Control).Text & " clicked"
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Panel1.AutoScroll = True
        Panel1.Dock = DockStyle.Fill
        For i As Integer = 1 To 50
            Dim b As New Button
            b.Top = (i - 1) * 30 + 10
            b.Left = 20
            b.Height = 25
            b.Text = "Button" & i.ToString()
            b.Name = "Button" & i.ToString()
            AddHandler b.Click, AddressOf Button_Click
            Panel1.Controls.Add(b)
        Next
 
        Me.Height = Screen.PrimaryScreen.WorkingArea.Height
        Me.Top = 0
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov