Public Class Form1
 
    Private WithEvents _oPPT As New _
      Microsoft.Office.Interop.PowerPoint.Application
    Private Delegate Sub _PPDelegate(ByVal Pres As _
    Microsoft.Office.Interop.PowerPoint.Application)
 
    Private Sub _oPPT_SlideShowEnd(ByVal Pres As _
      Microsoft.Office.Interop.PowerPoint.Application) Handles _
      _oPPT.SlideShowEnd
        Dim ppDelegate As _PPDelegate
        If Me.InvokeRequired Then
            ppDelegate = New _PPDelegate(AddressOf _oPPT_SlideShowEnd)
            Me.Invoke(ppDelegate, New Object() {Pres})
        End If
 
        'Ab hier dein Code welcher ausgeführt werden soll ....
 
    End Sub
 
End Class