Dim lvpanel As New Panel gb.Controls.Add(lvpanel) Dim lv As New ListView lvpanel.Controls.Add(lv) 'Ajout d'items a partir d'une collection "pages" '... Dim lvwidth As Integer = pages.Count * 200 lv.Width = lvwidth lv.Height = 150 lvpanel.AutoScroll = True