Public Class frmPanelDemo
 
    Dim pl As New Panel With {.Parent = Me, .Dock = DockStyle.Fill, _
        .BackColor = Color.White, .AutoScroll = True, .AutoScrollMargin = _
        Me.ClientSize}
 
    Dim WithEvents btn As New Button With {.Parent = pl, .Text = "ADD"}
 
    Dim btnlst As New List(Of Button)
    Dim maxtop As Integer = 50
 
    Private Sub btn_Click(sender As Object, e As System.EventArgs) Handles _
      btn.Click
        btnlst.Add(New Button With {.Parent = pl, _
                                    .Top = maxtop + 40, .Height = 30, _
                                    .Text = CStr(.Top)})
        maxtop += 40
    End Sub
End Class