Ajuda com botão Play para executar arquivo selecionado na listbox

Olá, boa noite a todos,

Venho mais uma vez, pedir ajuda dos senhores...

Preciso de um cmdPlay que execute o arquivo .mp3 selecionado na lista do Listbox...

As funções abaixo, peguei aqui no fórum... Se não me falha a memória, é de autoria do grande Nobzinho...
Funciona vbeleza, selecionado e passando linha a linha na lista.

Mais gostaria de uma botão Play, que executasse o arquivo quando selecionado na lista. E com a função Player(), executa a PLaylist completa...

Private Sub cmdPrimeiro_Click()
Me.lbxFiles = Me.lbxFiles.ItemData(0)
End Sub

Private Sub cmdAnterior_Click()
If Me.lbxFiles.ListIndex > 0 Then
Me.lbxFiles = Me.lbxFiles.ItemData(Me.lbxFiles.ListIndex - 1)
Else
Me.lbxFiles = Me.lbxFiles.ItemData(Me.lbxFiles.ListCount - 1)
End If
End Sub

Private Sub cmdPróximo_Click()
If Me.lbxFiles.ListIndex < Me.lbxFiles.ListCount - 1 Then
Me.lbxFiles = Me.lbxFiles.ItemData(Me.lbxFiles.ListIndex + 1)
Else
Me.lbxFiles = Me.lbxFiles.ItemData(0)
End If
End Sub

Private Sub cmdÚltimo_Click()
Me.lbxFiles = Me.lbxFiles.ItemData(Me.lbxFiles.ListCount - 1)
End Sub

A lbxFiles é onde abre a lista com caminho dos arquivos .mp3

Tenho a função:

Private Sub Player()
'Adapatação do Muca em 11.04.2011
On Error Resume Next

Dim varRet
Dim stPath As String

If mstPath = vbNullString Then
stPath = Me.Diret & Me.Arquivo & ".m3u"
Else
stPath = Me.Diret & Me.Arquivo & ".m3u"
End If
coco.url = stPath
Texto19 = "Executando " & Me.Arquivo & ".m3u em " & Me.Diret
Texto26 = stPath

Me.TimerInterval = 0

End Sub

Desde já agradeço a ajuda dos companheiros...

Abraços a todos...

Tocador MP3
Download

Tocador PlayList
Download

Tocador Windows Media Player
Download

Bom dia João,

Estou usando a base do Tocador PlayList. Apenas acrescentei algumas funções como: Botões de navegação de áudio e vídeo e canais de TV no mesmo player usando o Windows Média Player.

É para uso pessoal sem ônus...

Inseri no form, botões: Volumes Alto e Baixo, Stop, Pause, Play, Primeiro, Anterior, Próximo e Último...

Fiz um layout simples mais compacto, deixando com aspecto profissional... Tá ficando legal...

Os botões, Volumes Alto e Baixo, Stop, Pause, Play. Para esses ainda não consegui rodar...

Desde já lhe agradeço pela atenção e apoio.

Deus continue te abençoando.

Boa tarde senhores,

Resolvi o Play da seguinte forma...

Private Sub cmdPlay_Click()
If Me.lbxFiles.ListIndex <> Me.lbxFiles.ListCount - 1 Then
Me.coco.url = Me.lbxFiles.Value
Me.coco.Object.Controls.play
Else
Me.lbxFiles = Me.lbxFiles.ItemData(0)
End If
End Sub

O botão STOP

Private Sub cmdStop_Click()
'Esse escript Para (stop) nas míscas da Listbox
If Me.lbxFiles.ListIndex <> Me.lbxFiles.ListCount - 1 Then
Me.coco.url = Me.lbxFiles.Value
Me.coco.Object.Controls.Stop
End If
End Sub

Agora preciso de ajuda para resolver o problemas com os botões: AumentarVolume e BaixarVolume... Estou usando o seguinte:

Private Sub cmdAlto_Click()
'To Increase Volume
Me.txtVolume.Value = Me.txtVolume.Value = 10
Me.coco.Object.Controls.valume
End Sub

Private Sub cmdBaixo_Click()
'To Inscrease Volume
Me.txtVolume.Value = Me.txtVolume.Value - 10
Me.coco.Object.Controls.volume
End Sub

Da o seguinte erro:
erro em tempo de execução '438'
O objeto não aceita esta propriedade ou método

Por favor alguém pode me ajudar?

Desde já agradeço...

Abraço a todos,