Como criar uma ListBox em tempo de execução e adicioná-la ao formulário

'Este exemplo mostra como criar uma ListBox em tempo
'de execução e adicioná-la ao formulário

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

    Dim lista As ListBox = New ListBox() 'declara a lista
    lista.Size = New Size(250, 95) 'define o tamanho
    lista.Location = New Point(150, 150) 'define a localização

    'adiciona itens na lista
    lista.Items.Add("Visual Basic")
    lista.Items.Add("C#")
    lista.Items.Add("Java")
    lista.Items.Add("Delphi")
    lista.Items.Add("JavaScript")

    Me.Controls.Add(lista) 'adiciona a lista ao form

  End Sub
End Class