WindowActivate Event Example
This example opens every activated presentation in slide sorter view.
Private Sub App_WindowActivate _ (ByVal Pres As Presentation, ByVal Wn As DocumentWindow) Wn.ViewType = ppViewSlideSorter End Sub