Visual Basic - Pasar de un MP3 a Otro

Hice un MP3 Player en el cual cargo en un Listbox todos los nombres de los MP3s y empiezo a reproducir a partir del primero pero cuando finaliza y tiene que empezar el segundo tema no se como hacer porque se queda ahi parado, ahy alguna forma de detectar cuado finaliza el tema Mp3

Muchas Gracias

Hola, pues mira, yo hice un mp3 player pero no se si lo abras hecho como yo lo hice, yo lo hice con un componente de mediaplayer y le agregue esto y funciono:

If (List1.ListIndex + 1) < List1.ListCount Then
List1.ListIndex = List1.ListIndex + 1
List1_Click
Else
MediaPlayer1.Stop
End If

y como debes saber, List1_Click tiene esto:

With MediaPlayer1
If Not FileOpen Then
.filename = List1.Text
.AutoStart = True

Else

.filename = ""
End If
End With

espero poder ayudarte...

cualquier cosa avisa :-)

Mira yo lo hice con una Api de Window Winmm.dll llamada y use la funcion mciSendString

Las Funciones que hice son:
Public Function Play_MP3(Mp3File as String) as long
mciSendString "open " + Mp3File, 0&, 0&, 0&
mciSendString "play " + Mp3File, "", 0&, 0&
isPlaying = true
MP3_en_Play = Mp3File
End Function

Public Function Stop_MP3(Mp3File as String) as long
mciSendString "close " + Mp3File, 0&, 0&, 0&
isPlaying = false
MP3_en_Play = ""
End Function

Private Sub Command1_Click(Index As Integer)
Mp3File = Chr$(34) + Trim(Text1.Text) + Chr$(34)

Select Case Index
Case 0
' Start Playing
mciSendString "open " + Mp3File, 0&, 0&, 0&
mciSendString "play " + Mp3File, "", 0&, 0&
isPlaying = True
Case 1
' Stop Playing
mciSendString "close " + Mp3File, 0&, 0&, 0&
isPlaying = False
End Select
End Sub

, Ya se que es muy casero pero como soy novato en esto... Bueno probare lo tuyo y si tengo algo para preguntarte lo hare sin dudas desde ya Muchas Gracias !!!