Starte, køre, kontrollere PowerPoint fra VB6 applikation

Fra nettet. Kun de to "danske bidrag" er fra mig:
(Husk at sætte projektets reference MS PowerPoint

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
' Start PowerPoint.
Dim ppApp As PowerPoint.Application
Set ppApp = CreateObject("Powerpoint.Application")

' Make it visible.
ppApp.Visible = True

' Add a new presentation.
Dim ppPres As PowerPoint.Presentation
Set ppPres = ppApp.Presentations.Open("Sti til pp-præsentationen")

' Setup slide show properties. Bruges ikke, hvis der allerede er overgange e.l. i pp'en
' With ppPres.Slides.Range.SlideShowTransition
' .EntryEffect = ppEffectRandom
'.AdvanceOnTime = msoTrue
'.AdvanceTime = 5 ' 5 seconds per slide
'End With

' Prepare and run the slide show.
With ppPres.SlideShowSettings
.ShowType = ppShowTypeKiosk
.LoopUntilStopped = msoTrue

.RangeType = ppShowAll
.AdvanceMode = ppSlideShowUseSlideTimings
.Run
End With

' Sleep so user can watch the show.
  Sleep (15000)

' Clean up.
ppApp.Quit

End Sub

(Husk at sætte projektets reference MS PowerPoint
skal selvfølgelig være
(Husk at sætte projektets reference til MS PowerPoint"

Det virker næsten....

Først kommer den med en fejl om at variabel ikke er defineret i denne sætning: '.LoopUntilStopped = msoTrue', det er 'msoTrue' den brokker sig over.

Hvis jeg kommentere den sætning ud så åbner den godt nok min PP-fil, men jeg kan ikke bladre i slidesne.
Når jeg trykker 'Esc' går den tilbage til PP i stedet for min applikation.

Har du evt. et forslag til hvordan de tre problemer kan løses?

De to sidste problemer var krav i mit oprindelige indlæg:

>>Når den køre skal jeg bare bruge de "normale" tastefunktioner i PP, men ved tryk
>>på 'Esc' skal den ikke bare gå til PP's "designtime" men lukket PP helt og gå
>>tilbage til min applikation.