To display the next slide, use the Next method.
Sub next() ActivePresentation.SlideShowWindow.View.Next End Sub