Private Sub Image5_Click()

On Error Resume Next
CommonDialog1.Filter = "Archivos MP3 (*.mp3)|*.mp3| Archivos MIDI (*.mid)|*.mid| Archivos de audio de Windows (*.wav)|*.wav"
CommonDialog1.ShowOpen

MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "Open"

Label1.Caption = CommonDialog1.FileTitle

End Sub

If MMControl1.Mode = mciModePlay Then
MMControl1.Command = "Pause"
ElseIf MMControl1.Mode = mciModePause Then
MMControl1.Command = "Play"
End If