عندي مشكلة فى اظهار نافدة التحكم بمستوى الميكروفون وال Stereo Mix

السلام عليكم ورحمة الله وبركاته

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

انا بصدد عمل برنامج تسجيل الصوت ووضعت في هذا البرنامج زر لاظهار التحكم بمستوى الصوت للميكرفون ومستوى الصوت للـ Stereo Mix كما هو موصح بالصورة التالية:

لكني في الحقيقة لم استطع فعل ذلك وقد حاولت وبحث في المنتديات ولم اصل لنتيجة مرضية، فلم استطع الا الى الوصول الى اظهار نافذة التحكم بالصوت من خلال الكود التالي:

Dim vol As Long
vol = Shell("C:\WINDOWS\system32\sndvol32.exe", vbNormalFocus)

كما بالصورة التالية:

وكذلك استطعت اظهار نافذة اعدادات الصوت من خلال الكود التالي:

 Dim vVar As Variant
  vVar = Shell("RunDll32.exe Shell32.dll,Control_RunDLL mmsys.cpl , 2", vbNormalFocus)

كما بالصورة التالية:

فالحقيقة ارجو من الاخوة خبرا الفيجول بيسك ان يفيدونا بما ليدهم من علم بارك الله فيهم وجزاهم الله خيرا.

سؤالى: اريد كود لاظهار نافدة التحكم بمستوى صوت الميكروفون و مستو الــ Stereo Mix كما بالشكل التالي:

والسلام عليكم ورحمة الله وبركاته