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