Dim presentation As PowerPoint.Application
presentation = New PowerPoint.Application
presentation.Visible = Microsoft.Office.Core.MsoTriState.msoCTrue
presentation.Presentations.Add()
presentation.Presentations.Item(1).Slides.Add(1, PowerPoint.PpSlideLayout.ppLayoutBlank)
presentation.Presentations.Item(1).Slides.Item(1).Shapes.AddPicture("image.jpg", Microsoft.Office.Core.MsoTriState.msoCTrue, Microsoft.Office.Core.MsoTriState.msoCTrue, 0, 0)
presentation.Presentations.Item(1).Slides.Item(1).Shapes.AddMediaObject("sound.wav")