SlideShow exit presentation

[sooo]

Hello,

I am trying to show the slideshow with macro automatically.
I can run it as follows:

Presentation = ThisComponent.Presentation
Presentation.start

But after last page, it is displayed the black screen 'Click to exit Presentation...'
To exit slideshow, I should click mouse or keyboard. I wanna know how to finish the slideshow automatically with macro without any click manually,
Is there a way to handle it? If so, please let me know.
Any help is appreciated.

Thanks