Powerpoint VisualBasic Script

Sub next()
    ActivePresentation.SlideShowWindow.View.Next
End Sub