If (PlsOeffnen.ShowDialog() = Windows.Forms.DialogResult.OK) Then
            If TabControl1.TabCount > 0 And TabControl1.SelectedTab.Text = _
              PlsOeffnen.FileName Then
                MessageBox.Show("Es ist bereits eine Playlist mit dem Namen" & _
                "geöffnet")
            Else : Call PlaylistErstellen()
                TabControl1.SelectedTab.Text = PlsOeffnen.FileName
            End If
 
            Using PlsLesen As New StreamReader(PlsOeffnen.FileName)
                Do Until PlsLesen.EndOfStream               ' Bis Dateiende 
                ' erreicht
                    DateiInhalt = PlsLesen.ReadLine         ' Eine Zeile lesen
 
                    For Each oControl As ListBox In _
                      TabControl1.SelectedTab.Controls
                        oControl.Items.Add(DateiInhalt)
                        Exit For
                    Next
                Loop
                PlsLesen.Close()
            End Using
        End If