在PPT中，用VBA编一个打开当前幻灯片，等几秒后自动跳转到指定页的源代码

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ’是为sleep用的
Private Sub App_SlideShowBegin(ByVal Wn As SlideShowWindow)
Sleep xxxx ‘ 毫秒
‘Do anything else
End Sub