Criar listbox em tempo de execução

Simples

Dim lista As New ListBox

lista.Size = New Size(120, 433) 'Tamanho

lista.Location = New Point(936, 21) 'Localização
Controls.Add(lista) 'Adiciona control ao form