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