1.ppt����Դ��
ppt����Դ��
Private Declare Sub Sleep Lib "kernel" (ByVal dwMilliseconds As Long) ’是放源pam的源码为sleep用的
Private Sub App_SlideShowBegin(ByVal Wn As SlideShowWindow)
Sleep xxxx ‘ 毫秒
‘Do anything else
End Sub