Option Explicit
Option Compare Text
Dim XY As New EventClassModule
Dim WWMPLay As String
Private Const SND_APPLICATION = &H80         ' look for application specific 
' association
Private Const SND_ALIAS = &H10000     ' name is a WIN.INI [sounds] entry
Private Const SND_ALIAS_ID = &H110000    ' name is a WIN.INI [sounds] entry 
' identifier
Private Const SND_ASYNC = &H1         ' play asynchronously
Private Const SND_FILENAME = &H20000     ' name is a file name
Private Const SND_LOOP = &H8         ' loop the sound until next sndPlaySound
Private Const SND_MEMORY = &H4         ' lpszSoundName points to a memory file
Private Const SND_NODEFAULT = &H2         ' silence not default, if sound not 
' found
Private Const SND_NOSTOP = &H10        ' don't stop any currently playing sound
Private Const SND_NOWAIT = &H2000      ' don't wait if the driver is busy
Private Const SND_PURGE = &H40               ' purge non-static events for task
Private Const SND_RESOURCE = &H40004     ' name is a resource name or atom
Private Const SND_SYNC = &H0         ' play synchronously (default)
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal _
  lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Sub start()
WWMPLay = "C:\windows\media\play.wav"
Set XY.App = Application
bAnhalten = False
SlideShowWindows(1).View.GotoSlide FrageSeite, False
If iFrage = 0 Then
  iFrage = 1
  ActivePresentation.Slides(FrageSeite).Shapes("Zeiger").Top = 230.625
End If
bVerloren = False
PlaySound WWMPLay, ByVal 0&, SND_SYNC
stellFrage (iFrage)
merkAntwort iFrage, ActivePresentation.Slides(AntwortSeite).Shapes("Antwort" & _
  iFrage).TextFrame.TextRange.Text
Tmr (get_Timer())
End Sub