Try this
Code:
Sub OnSlideShowPageChange(SW As SlideShowWindow)
If SW.View.CurrentShowPosition = 1 Then Call InitializeScore
End Sub
To make this reliable add a CommandButton (or anything from the controls toolbox) on slide 1 and set it to not visible in the selection pane