Wav dosyalarını çalan çok basit bir kodlama

MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.DeviceType = "waveaudio"
CommonDialog1.Filter = "mp3 dosyalari|*.wav"
'CommonDialog1.dialogtitel = "mp3 dosyasi sec"
CommonDialog1.ShowOpen
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "open" 'dosyayi ac
End Sub