Powerpoint Launch for VB issue

I am trying to launch a power point from vb6 and have it close after 1 min. I can get the PPT to launch and close just fine but the problem I am having is if I have any window selected for example an excel document, this runs the presentation in the background instead of on top of anything else on the screen. How do I get this to show on top of any other window?

Thanks,

Jason

Code:

---

    Dim PPT As Object
    Dim Pres As Object

    Set PPT = CreateObject("PowerPoint.Application")
    Set Pres = PPT.Presentations.Open("C:\ExcelSheet\SalesScreenInfo.pptx")
    If Pres.SlideShowWindow Is Nothing Then
        Pres.SlideShowSettings.Run
    End

---

Use SetForegroundWindow API to bring it to front.

appactivate should also work