Trigger Animation in PowerPoint

Question

I have Microsoft Office PowerPoint 2007. I want to make it so that it will start a specific animation when I press the F4 key. I currently have the following:

Sub DoAnimation()

End Sub

Sub auto_open()
    Application.OnKey "{F4}","DoAnimation"
End Sub

So how would I start the animation in the DoAnimation sub?