Set application = GetObject(, "PowerPoint.Application")
Set presentation = application.ActivePresentation
Set slideshow = application.SlideShowWindows.Item(1)

slideshow.View.Next()