Answer 1

Answer 2

Answer 3

'Page Number

Dim MyPageNumber As Integer

'Acrobat Reader Path

Dim AcrobatReaderPath As String = "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe"

'Pdf File Name

Dim PdfFileName As String = "Egypt.pdf"

'Open Page

Shell(AcrobatReaderPath & " /A Page=" & MyPageNumber & " " & Application.StartupPath & "\" & PdfFileName, AppWinStyle.MaximizedFocus)