Файл ресурсов - VB

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

Доброго вечера. Прошу помощи. Хотелось бы что-бы при клике по "открыть PDF" открывался pdf файл из ресурсов в программе по умолчанию, а при нажатии "скачать PDF" было предложено куда его сохранить на компьютере. ("открыть PDF" - Image) Как бы это реализовать?! Буду очень признателен!!!

Решение задачи: «Файл ресурсов»

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

                            Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
 
 
Private Sub Command1_Click()
sPath = App.Path & "\Mypdf.pdf"
BinaryData = LoadResData(101, "CUSTOM")
Open sPath For Binary Access Write As #1
Put #1, 1, BinaryData
Close #1
 ShellExecute Me.hwnd, vbNullString, App.Path & "\Mypdf.pdf", vbNullString, "C:\", SW_SHOWNORMAL
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
Kill App.Path & "\Mypdf.pdf"
End Sub
                        