I would suggest NOT using a command button. Use a normal shape or Action Buttion with an action of run Macro (startup)
CODE
Sub startup()
Dim osld As Slide
Set osld = SlideShowWindows(1).View.Slide
With osld.Shapes("shockwaveflash1").OLEFormat.Object
.Visible = True
.Playing = True
End With
End Sub
Sub killIt()
Dim osld As Slide
Set osld = SlideShowWindows(1).View.Slide
With osld.Shapes("shockwaveflash1").OLEFormat.Object
.Visible = False
.Playing = False
End With
End Sub
Sub OnSlideShowPageChange(SW As SlideShowWindow)
'NOTE if not on slide 1 change the number
If SW.View.CurrentShowPosition = 1 Then Call killIt
End Sub