اريد طريقة و كود توليد صوت

الشغلة عبارة عن تشغيل ملف صوت يحتوي على الصفارة طبعا تغيير الصوت والتحكم بنبضانة نوعا ما صعبة

شكرا لك اخى mostafazidani لردك على سؤالى

لا اقصد تشغيل ملف صوتى

انا اريد مثل كود لتشغيل نغمات الموبايل مثلا 1g1 3g1 وهكذا

شكرا لك مرة اخرة

السلام عليكم

وانا ابحث عن هذا الكود وجدت كود مثلة لكنة يعمل على السماعة الداخلية للجهاز

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Command1_Click()
Beep 1000, 100
End Sub

فهل يمكن لمثل هذا الكود العمل على السماعات الخارجية

وشكرا لكم