[أحمد فتح الرحمن]

السلام عليكم اخواني لدي هذا الكود لتشغيل ملف صوتي و يعمل جيدا

كود :

  Public Sub PLAY_AUDIO_SOUND()
       Dim Mytone As New System.Media.SoundPlayer
       Mytone.SoundLocation = Application.StartupPath & "\FolderSound\Sound1.Wav"
       Mytone.Load()
       Mytone.Play()
   End Sub

اضفت مجموعة من الاصوات لمجلد الاصوات و اردت ان اقوم باستدعاء هذا الكود بتغيير فقط اسم الصوت 
ماذا افعل بارك الله فيكم ليصبح هذا الكود بموديل عام و استدعيه فقط و اكتب اسم الصوت مثلا
PLAY_AUDIO_SOUND(Sound1)
PLAY_AUDIO_SOUND(Sound2)
PLAY_AUDIO_SOUND(Sound3)