[Resolvido]Ajuda com loop no botão Play de música no Formulário

Bom dia,

Venho através desse pedir ajuda para encontrar solução em que ao clicar no botão play do Player de Música, continue tocando demais itens da "lbxFiles".

Estou usando a seguinte função:

Private Sub cmdPlay_Click()
On Error Resume Next
Dim coco As String
Dim x As Integer

If Me.lbxFiles.ListIndex > 0 Then
Me.coco.URL = Me.lbxFiles.Value
Me.coco.Object.Controls.Play

Dim ListIndex, i As Integer, Maximo
'para looping em listBox
For i = 0 To Me.lbxFiles.ListCount - 1
If Me.lbxFiles.Column(0, i) > Maximo Then Maximo = Me.lbxFiles.Column(0, i): ListIndex = i
Next i
Me.lbxFiles.ListIndex = Me.lbxFiles.ListIndex + 1 = True
Me.coco.URL = Me.lbxFiles.Value
Me.coco.Object.Controls.Play

End If

End Sub

Obs: coco = Media Player, lbxFiles = ListBox com os nomes das músicas ou Playlist escolhida.

Ao clicar no Botão Play, toca... Mais ao concluir para, não da continuidade na lista.

Por favor, algum dos companheiros com mais experiência pode me ajudar?

Abraço a todos...

Boa noite,

Fiz de outra forma sem ser pelo botão player...

Obrigado a todos desde já...

Resolvido.