SlideShowBegin Event Example

This example adjusts the size and position of the slide show window and then reactivates it.

Private Sub App_SlideShowBegin(ByVal Wn As SlideShowWindow)
    With Wn
        .Height = 325
        .Width = 400
        .Left = 100
        .Activate
    End With
End Sub