[عبد العزيز البسكري]

كود :

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

كود :

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       PLAY_AUDIO_SOUND("Sound1")
   End Sub
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       PLAY_AUDIO_SOUND("Sound2")
   End Sub
   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       PLAY_AUDIO_SOUND("Sound3")
   End Sub