Private Sub PlaylistErstellen()
        AnzPlaylist += 1
        Dim TabSeite As New TabPage("Playlist Nr " & AnzPlaylist)
        Dim uc As New ListBox()
        uc.Dock = DockStyle.Fill
        TabControl1.TabPages.Add(TabSeite)
        TabSeite.Controls.Add(uc)
        TabControl1.SelectedIndex = TabControl1.SelectedIndex + 1
    End Sub