Как показать слайды Power Point - VB

Формулировка задачи:

Доброго времени суток. Помогите, пожалуйста, разобраться с OLE. Какой код вставить, чтобы на форме в окне перелистывать слайды? Связываю OLE с обьектом «Презентация Microsoft Power Point» Загружаю в него файл

OLE1.CreateLink ("c:\Презентация1.ppt")

Запускаю показ слайдов отдельным процессом

OLE1.DoVerb

Пробовал так

Private Sub OLE1_Click()
SendKeys " "
End Sub

Ничего не получается - следующий слайд не перелистывается Мне важно только, чтобы при нажатии на кнопку в окне на форме показывался следующий слайд презентации. Именно на форме, а не отдельным процессом. Анимация не обязательна. Может, как-то использовать Picture Box?

Решение задачи: «Как показать слайды Power Point»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim PreSent As PowerPoint.Application 'Object 'создать переменную для объекта PowerPoint
Dim APower As Byte, BPower As Byte
End Sub
 
Private Sub Form_Load()
Set PreSent = CreateObject("powerpoint.Application") 'создаем объект PowerPoint
PreSent.Activate 'активируем
PreSent.Presentations.Open "c:\5klas.ppt" 'подгружаем файл
PreSent.WindowState = ppWindowMinimized 'сворачиваем от юзера
PreSent.Presentations.Application.ActivePresentation.SaveAs App.Path + "\temp", ppSaveAsJPG
' сахраняем как серию картинок во временную папку
PreSent.Quit ' закрываем обьект
' потом показываем картинки на форме
File2.Path = App.Path + "\temp"
Image1.Picture = LoadPicture(App.Path + "\" + File1.List(0))
BPower = 2
End Sub
 
Private Sub Command1_Click()
APower = File1.ListCount
If B <= A Then
Image1.Picture = LoadPicture(App.Path + "\temp\" + "слайд" + CStr(BPower) + ".JPG")
BPower = BPower + 1
Else
MsgBox "Показ окончен", vbCritical + vbOKOnly, "ЗАВЕРШЕНО"
Kill (App.Path + "\temp\*.*")
End If
                        