Powerpoint VisualBasic Script

Sub show()
    With ActivePresentation.SlideShowWindow.View
        .EndNamedShow
        .Next
    End With
End Sub