[visual basic 6] Hacer un Reproductor de Música con Lista

Bueno despues de que muchos me pidieran hacer este videotutorial, aquí se los traigo







Códigos:



CODIGO PLAY


If List1 = "" Then
Else
WindowsMediaPlayer1.URL = List1
End If


CODIGO PAUSA

If Me.WindowsMediaPlayer1.playState = wmppsPaused Then
Me.WindowsMediaPlayer1.Controls.play
Else
Me.WindowsMediaPlayer1.Controls.pause
End If


CODIGO STOP

Me.WindowsMediaPlayer1.Controls.stop


CODIGO ANTERIOR


If List1.ListIndex = 0 Then
List1.ListIndex = List1.ListCount - 1
Me.WindowsMediaPlayer1.URL = List1
Else
List1.ListIndex = List1.ListIndex - 1
Me.WindowsMediaPlayer1.URL = List1
End If

CODIGO SIGUIENTE

If List1.ListIndex = List1.ListCount - 1 Then
Me.WindowsMediaPlayer1.URL = List1
List1.ListIndex = All
Else
List1.ListIndex = List1.ListIndex + 1
Me.WindowsMediaPlayer1.URL = List1
End If


CODIGO ABRIR


CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then
Else
List1.AddItem CommonDialog1.FileName
End If


Gracias por pasarse!