Dim ListBox1 As ListBox
 
     Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1_Click

    ListBox1=New ListBox()
    ListBox1.Size=New System.Drawing.Size(270,100) 
    ListBox1.Location=New System.Drawing.Point(10,40)
    Me.Controls.Add(ListBox1)
    ListBox1.MultiColumn=True
    ListBox1.BeginUpdate()
    Dim intLoopIndex As Integer
      For intLoopIndex=1 To 20
           ListBox1.Items.Add("Item "&intLoopIndex.ToString())
           Next intLoopIndex
   ListBox1.EndUpdate()
    End Sub