Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Dim ListBox1 As New ListBox
  ListBox1.Top = 0 : ListBox1.Left = 0
  ListBox1.Width = 200 : ListBox1.Height = 200
  Dim di As New IO.DirectoryInfo("c:\")

  For Each dra As IO.FileInfo In di.GetFiles()
   ListBox1.Items.Add(dra)
  Next

  Me.Controls.Add(ListBox1)
End Sub