Let me re-phase!!!

[Serge]

Or, better yet, you can instatiate a PowerPoint object. Add a reference to Microsoft PowerPoint 8.0 (or select the highest version you have installed) Object Library, then use something like this:

Private Sub Command1_Click()
    Dim objPowerPoint As New PowerPoint.Application
    
    objPowerPoint.Visible = msoCTrue
End Sub