Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim t As Integer = 3
Dim left As Integer = 12
Dim top As Integer = 12
Dim lb(t) As ListBox
For i As Integer = 0 To t - 1
lb(i) = New ListBox
With lb(i)
.Left = left
.Top = top + 100 * i
End With
Me.Controls.Add(lb(i))
Next
lb(0).Items.Add("Item1")
lb(1).Items.Add("Item1 in lb(1)")
lb(2).Items.Add("Another item")
End Sub