copia e incolla questo codice in un nuovo progetto windows e dimmi se ti va bene
'dichiara la lista come array
Private lista() As ListView
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim numelem As Integer = 6 'numero di liste da creare
ReDim lista(numelem - 1) 'ridimensiona l'array
Dim i As Integer
For i = 0 To numelem - 1
lista(i) = New ListView()
'aggiunge e sposta la lista
Me.Controls.Add(lista(i))
lista(i).Location = New Point(lista(i).Width * i, 0)
lista(i).Items.Add("prova")
lista(i).Items.Add("Prova")
'ora se vuoi gestire gli eventi per la lista i scrivi:
'io ho messo un gestore comune ma tu puoi fare diversamente se ritieni necessario
AddHandler lista(i).Click, AddressOf gestiscievento
Next
End Sub
Sub gestiscievento(ByVal sender As Object, ByVal e As EventArgs)
MsgBox("ok")
End Sub

Rispondi quotando