ممكن كود تشغيل ملف صوت أي صيغة بدون أي برنامج

تفضل، ها هو برنامج صغير لتشغيل الصوت:

Play_Sound.zip

ط تعرييف تابع من توابع API 
Declare Auto Function sndPlaySound Lib "WINMM.DLL" (ByVal FileName As String, ByVal Options As Int32) As Int32 
    Const SND_SYNC As Long = &H0 'synchronize playback 
    Const SND_ASYNC As Long = &H1 ' played async 
    Const SND_NODEFAULT As Long = &H2 ' No default 
    Const SND_LOOP As Long = &H8 ' 'loop the wave 
    Const SND_NOSTOP As Long = &H10 'don't stop current sound if one playing 
    Const SND_NOWAIT As Long = &H2000 'Do not wait if the sound driver is busy. 
    Const SND_ALIAS As Long = &H10000 ' Play a Windows sound (such as SystemStart, Asterisk, etc.). 

Public Sub PlayAWave(ByVal Soundfile As String)           
            sndPlaySound(Soundfile, SND_ASYNC) 
End Sub

أسف لم أرى مشاركة الأخ هارون

لماذا الأسف يا طيب، "البحر يحب الزيادة" على رأي أستاذنا محمد عبدالعليم.

كنت أسرع منك لأن المثال كان جاهز عندي جواباً على سؤال سابق :-)