I've a video on slide 2. I would like to pauze the video on left click and resume on right click. I use a remote pointer.

I'm using the event slideshownextslide. But i can't get it to work. I also tried the events slideshowonnext and slideshowonprevious, but with no success.

Private Sub PPTEvent_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
 
    
    'Set shp = ActivePresentation.Slides(2).Shapes(1)
    'Set ply = Application.Windows(1).View.Player(shp.Id)
    
    'If Wn.View.CurrentShowPosition = 3 Then Wn.View.GotoSlide 2
    
    For Each shp In ActivePresentation.Slides(Wn.View.Slide.SlideID).Shapes
        ' Find the first media shape on the slide:
        If shp.Type = msoMedia Then
            'Debug.Print shp.Name
            Set ply = Wn.View.Player(shp.Id)
                Select Case ply.State
                    Case 0 'playing
                        ply.Pause
                    Case 1 'paused
                        ply.Play
                    Case 2 'stopped
                        ply.Play
                    Case 3 'not ready
                        ply.Play
                End Select
            Exit For
        End If
    Next shp


    
'
'    SendKeys "{TAB}"
'    SendKeys "%{P}"


End Sub