[VB6]Slider e avanzamento item ListBox

[sintax_error]

salve
ho una list box e un cobobox che carica i valori da un file di testo
e tramite il media player mi suona dei btrani mp3

Open App.Path & "\" & "CODE\combo.txt" For Input As 1
While Not EOF(1)
Input #1, riempicombo
Combo1.AddItem (riempicombo)
Wend
Close #1

questo codice mi riempie il combobox con un file di testo

Private Sub Combo1_click()
Call SHOW_IMAGE_MAIN(Combo1.Text)
End Sub


Public Function SHOW_IMAGE_MAIN(INDICE As String)
On Error Resume Next
List11.Visible = True

Dim NomeFile As String

List11.Clear

Select Case INDICE 'Combo1.ListIndex
Case Is = INDICE
Imgcaricate.Picture = LoadPicture(App.Path & "\mp3\" & INDICE & "\cover\1.jpg")

NomeFile = App.Path & "\mp3\" & INDICE & "\LIST.txt"
  Open NomeFile For Input As #1
    While Not EOF(1)
      Input #1, NomeFile
      List11.AddItem Left(NomeFile, Len(NomeFile) - 4)
    Wend
  Close #1
 End Select
End Function

al click sul combo riempio una listtbox sempre da un file di testo esterno e mostro un'immagine

Private Sub List11_Click()
Text112 = List11.Text & ".mp3"
Call listmp3(List11.ListIndex)
End Sub

Private Function listmp3(INDICE As Integer)

On Error Resume Next
Case INDICE 
Case Is = INDICE
On Error Resume Next
VFmp3player1.SongName = App.Path & "\mp3\" & Combo1.Text & "\" & Text112.Text
VFmp3player1.Play 
End Select
End Function
end sub

fin qui tutto bene funziona ma forrei fare in mods che terminato
di suonare un brano mi avanzi di un Item nella listbox e mi suoni il successivo
ho provato cosi a testare il valore di un slider ma non funziona :

Private Sub Slider1_Change()
If Slider1.Value = Slider1.Max  Then
List11.ListIndex = List11.ListIndex + 1
VFmp3player1.SongName = App.Path & "\mp3\" & Combo1.Text & "\" & Text112.Text
VFmp3player1.play

ometto il codice per lo slider
il componente VFmp3player non e' il media player di Windows ma
un ocx che ha anche analazzitare di spettro ma secondo me piu' limitato de mediaplayer.
perche'0 non funziona??

[Mabi]

Originariamente inviato da sintax_error
ho provato cosi a testare il valore di un slider ma non funziona :

Private Sub Slider1_Change()
If Slider1.Value = Slider1.Max Then
List11.ListIndex = List11.ListIndex + 1
VFmp3player1.SongName = App.Path & "\mp3\" & Combo1.Text & "\" & Text112.Text
VFmp3player1.play

ometto il codice per lo slider

Quand'è che imposti il valore massimo per lo Slider ?

[sintax_error]

il valore di slide1.max lo prendo da una variabile all'avvio del brano.
alla fine del brano mi avanza di un Item la listbox ma non suona il brano .
ho provato anche a fare in questo modo

Private Sub Slider1_Change()
If Slider1.Value = Slider1.Max Then
List11.ListIndex = List11.ListIndex + 1

command1.value=true

mettendo il codice per avviare il brano su un bottone ma non lo suona lo stesso,mentre se clicco sul bottone command1 suona
praticamente non da imput al pulsante per mandare in esecuzione il brano

[Mabi]

Originariamente inviato da sintax_error
mettendo il codice per avviare il brano su un bottone ma non lo suona lo stesso,mentre se clicco sul bottone command1 suona

Se hai due tasti e vuoi cliccare il secondo premendo il primo ti basta richiamare la procedura:

Private Sub Command1_Click()
Call Command2_Click
End Sub

Private Sub Command2_Click()
MsgBox "Tasto 2 premuto"
End Sub

[sintax_error]

ti ringrazio per la risposta ma a me lo deve fare da codice
non su iterazione utente.

slider1_Change()
If slider1.value = slider1.max then
list1.listindex= list1.listindex +1 
call cmd_click
end sub

la procedura per mandare in play il mediaplayer sta su

bottone
ma non riesco a capire perche' non funziona.
sara una cavolata di sicuro ma ci sto sclerando
sono all'inizio e mi sto divertendo a afre un player mp3.