Skip to content

Instantly share code, notes, and snippets.

Created October 10, 2016 16:49
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
What would you like to do?
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment