Code: Select all
Sub OnSlideshowPageChange()
If SlideShowWindows(1).View.SlideShowName = "Custom Show 1" Then
If B_Loop_2On = False Then
lngStart = Timer
B_Loop_2On = True
Else
If Timer > lngStart + 120 Then SlideShowWindows(1).View.GotoNamedShow ("Custom Show 2")
End If
End If
End Sub