Private Sub PlaylistEntfernen()
  Dim MarkierterTab As Integer = TabControl1.SelectedIndex
  TabControl1.TabPages.Remove(TabControl1.SelectedTab)
  If MarkierterTab - 1 > 1 Then
    TabControl1.SelectedIndex = MarkierterTab - 1
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de