[VB.NET] Creazione di controlli a runtime

[calldavid]

'dichiara la lista
Private WithEvents lista As New ListView()



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'aggiunge e sposta la lista
Me.Controls.Add(lista)
lista.Location = New Point(50, 50)

End Sub

Private Sub lista_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lista.Click
MsgBox("ok")
End Sub