Powerpoint VisualBasic Script

Sub show()
    ActivePresentation.SlideShowWindow.View.State = ppSlideShowBlackScreen
    ActivePresentation.SlideShowWindow.View.State = ppSlideShowWhiteScreen
End Sub