ايضا تستطيع ان تحفظ الصوت الي حاب ان يظهر عند عدم وجود الصنف او الماده بصيغة wav وتحفظ باسم على سبيل المثال SU ويكون موقعه جنب البرنامج
2- تضع هذا الكود في زر البحث عند عدم وجود الصنف
fn2 = Application.CodeProject.Path & "\" & "SU.wav"
rn2 = sndPlaySound(fn2, &H1)