The code below works fine if you are deleting something other than lowest item on the listbox. If you do, then you get an error saying "Specified argument was out of the range of valid values. Parameter name: '1' is not a valid value for 'value'."

VB Code:
  1. On Error GoTo TheError

  2.         Dim index As Integer

  3.         If playlist.Items.Count < 1 Then

  4.             MsgBox("A track must be in the playlist in order to use the remove function!", MsgBoxStyle.Exclamation, "Error")

  5.         Else

  6.             playlistPath.SelectedIndex = playlist.SelectedIndex

  7.             If MP3.MP3Playing = False Then

  8.                 index = playlistPath.SelectedIndex

  9.                 If playlistPath.SelectedItem = MP3.MP3File Then

  10.                     MP3.MP3Stop()

  11.                     tmrTrack.Enabled = False

  12.                     lblPaused.Visible = False

  13.                     Me.startTime = Date.Now

  14.                     Me.tmrTrack.Stop()

  15.                     etime.Text = "-:--"

  16.                     rtime.Text = "-:--"

  17.                     ttime.Text = "-:--"

  18.                     WP.Text = ""

  19.                     trkSeek.Value = 0

  20.                     playlistPath.Items.Remove(playlistPath.SelectedItem)

  21.                     playlist.Items.Remove(playlist.SelectedItem)

  22.                     lblPaused.Visible = False

  23.                     btnPause.Enabled = False

  24.                     mnuPause.Enabled = False

  25.                     btnPause.Enabled = False

  26.                     mnuPause.Enabled = False

  27.                     btnPause.Visible = True

  28.                     mnuPause.Visible = True

  29.                     btnResume.Enabled = False

  30.                     mnuResume.Enabled = False

  31.                     btnResume.Visible = False

  32.                     mnuResume.Visible = False

  33.                     btnStop.Enabled = False

  34.                     mnuStop.Enabled = False

  35.                     playlist.SelectedIndex = index

  36.                     playlist.Update()

  37.                     playlistPath.Update()

  38.                 ElseIf playlistPath.SelectedItem <> MP3.MP3File Then

  39.                     index = playlistPath.SelectedIndex

  40.                     playlistPath.SelectedIndex = playlist.SelectedIndex

  41.                     playlistPath.Items.Remove(playlistPath.SelectedItem)

  42.                     playlist.Items.Remove(playlist.SelectedItem)

  43.                     playlist.SelectedIndex = index

  44.                     playlist.Update()

  45.                     playlistPath.Update()

  46.                 End If

  47.             Else

  48.                 index = playlistPath.SelectedIndex

  49.                 playlistPath.SelectedItem = playlist.SelectedItem

  50.                 playlistPath.Items.Remove(playlistPath.SelectedItem)

  51.                 playlist.Items.Remove(playlist.SelectedItem)

  52.                 playlist.Update()

  53.                 playlistPath.Update()

  54.                 playlist.SelectedIndex = index

  55.             End If

  56.         End If

  57.         Exit Sub

  58. TheError: MsgBox(Err.Description, , " Error")