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