[VB6] ciclo per file1

[x69asterix]

ciao a tutti,
mi trovo un problema che non riesco a risolvere sempre che sia possibile.

allora all'apertura di un form ho :


Private Sub Form_Load()
File1.Filename = App.Path & "\SONG"
End Sub


Private Sub File1_Click()
WindowsMediaPlayer1.URL = App.Path & "\SONG\" & File1.Filename

Me.Caption = File1.Filename

Form7.Visible = False
End Sub

Bene tutto funziona correttamente, adesso però visto che File1 è popolato da diversi file, mi chiedevo come potevo eseguire un ciclo che praticamente alla fine del del File1.Filename selezionato mi facesse ripartire WindowsMediaPlayer1 al file successivo.
Son scarso lo sò!!
ciao.

[x69asterix]

proprio nessuno mi risponde?