MediaPlayer

Private Sub Command1_Click()
On Error Goto ErrHandler
CommonDialog1.CancelError = True
CommonDialog1.Filter = "MIDI Sequence _
(*.mid; *.rmi)|*.mid; *.rmi|WAV Sound _
(*.wav)|*.wav|MP3 (*.mp3)|*.mp3"
CommonDialog1.ShowOpen

If CommonDialog1.Filename <> "" Then
Mediaplayer1.Filename = CommonDialog1.Filename
Mediaplayer1.Autostart = False
Mediaplayer1.Stop
Form1.Caption = CommonDialog1.FileTitle
End If

Exit Sub
ErrHandler:
End Sub

Private Sub Command2_Click()
Mediaplayer1.Play
End Sub