ThisAddIn.vb

Imports Microsoft.Office.Interop.PowerPoint

Public Class ThisAddIn
    Private Sub Application_SlideShowNextSlide(Wn As SlideShowWindow) Handles Application.SlideShowNextSlide
        Dim r = New Random
        Dim s As System.IO.Stream

        Select Case r.Next(0, 3)
            Case 0
                s = My.Resources.camera_shutter_click_02
            Case Else
                s = My.Resources.camera_shutter_click_01
        End Select

        My.Computer.Audio.Play(s, AudioPlayMode.Background)
    End Sub
End Class