Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim anzFile As Integer = 0
            While anzFile < OpenFileDialog1.FileNames.Length
                ListBox1.Items.Add(OpenFileDialog1.FileNames(anzFile))
                anzFile += 1
            End While
        End If

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
Dim TabSeite As New TabPage("Playlist vom ")
Dim uc As New ListBox()
            uc.Dock = DockStyle.Fill
            TabControl1.TabPages.Add(TabSeite)
            TabSeite.Controls.Add(uc)