أخى الكريم
جرب هذا الكود
وأعلمنى بالنتيجة
لاحظ التالى بالكود الملف الصوتى اسمه A بالسطر الثانى بالكود PlaySoundA
ضع مسار الملف كما هو موجود لديكم على الجهاز تجده بالسطر الخامس بالكود
امتداد الملف الصوتى WAV
Declare Function sndPlaySound32 Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Sub aa()
Path = "D:\Documents and Settings\Administrator\Desktop\app\alarm1.WAV"
Call sndPlaySound32(Path, 1)
End Sub
وتقبل منى وافر الإحترام والتقدير