Windows Media Player 10 (wmp.dll)

bluebird2006
11 de Marzo del 2006
Hola a todos...tengo un problema en el uso de este componente en el siguiente fragmento de código :

Private Sub Pasa_Tema()

If Pasa_Pago = False Then
If List3.ListCount > 0 Then
Pasa_Pago = True
Mp3.Controls.Stop
Mp3.URL = "c:mp3" & List3.ItemData(0) & ".mp3"
Mp3.settings.volume = 250
'Mp1.Stop
'Mp1.Open "c:mp3" & List3.ItemData(0) & ".mp3"
'Mp1.Volume = -50
Graba_tema List3.ItemData(0)
List3.RemoveItem (0)
Else
Pasa_Pago = False
RandTema
End If
End If

End Sub

Private Sub pasa_siguiente()
Label8(0).Caption = ""
Label8(1).Caption = ""

If List3.ListCount > 0 Then
Pasa_Pago = True
Mp3.Controls.playItem
Mp3.URL = "c:mp3" & List3.ItemData(0) & ".mp3"
Mp3.settings.volume = 250
'Mp1.Stop
'Mp1.Open "c:mp3" & List3.ItemData(0) & ".mp3"
'Mp1.Volume = -10
Graba_tema List3.ItemData(0)
List3.RemoveItem (0)
Else
Pasa_Pago = False
RandTema
End If

End Sub

Lo que aparece comentado funcionaba OK...espero me puedan dar una mano,

Gracias a todos