Option Strict On

Option Explicit On



Imports System.Text

Imports System.Runtime.InteropServices



Friend Class Form1



    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.AcroPDF1.LoadFile("z:\test.pdf")

    End Sub



    Private Const ZOOM_IN As Keys = Keys.Control Or Keys.Add

    Private Const ZOOM_OUT As Keys = Keys.Control Or Keys.Subtract



    Protected Overrides Function ProcessCmdKey(ByRef msg As Message, keyData As Keys) As Boolean

        Select Case keyData

            Case ZOOM_IN, ZOOM_OUT

                If msg.HWnd <> AcroPDF1.Handle Then

                    PostMessage(GetAVPageView(AcroPDF1), msg.Msg, msg.WParam, msg.LParam)

                    Return True

                End If

        End Select

        Return MyBase.ProcessCmdKey(msg, keyData)

    End Function



    Private Function GetAVPageView(view As AxAcroPDFLib.AxAcroPDF) As IntPtr

        Dim LParam As IntPtr = CType(1, IntPtr)

        EnumChildWindows(view.Handle, AddressOf EnumChildProc, LParam)

        Return LParam

    End Function



    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>

    Private Shared Function PostMessage(hWnd As IntPtr, Msg As Integer,

                                         wParam As IntPtr, lParam As IntPtr) As Boolean

    End Function



    Private Function EnumChildProc(ByVal hwnd As IntPtr, ByRef LParam As IntPtr) As Boolean

        If GetWindowText(hwnd) = "AVPageView" Then

            LParam = hwnd

            Return False

        End If

        Return True

    End Function



    <DllImport("user32.dll", CharSet:=CharSet.Auto)>

    Private Shared Function EnumChildWindows(hWndParent As IntPtr, lpEnumFunc As EnumChildProcDelegate, ByRef lParam As IntPtr) As Boolean

    End Function



    Private Delegate Function EnumChildProcDelegate(hwnd As IntPtr, ByRef Lparam As IntPtr) As Boolean



    <DllImport("user32.dll", CharSet:=CharSet.Auto)>

    Private Shared Function GetWindowTextLength(hWnd As IntPtr) As Integer

    End Function



    <DllImport("user32.dll", CharSet:=CharSet.Auto)>

    Private Shared Function GetWindowText(hWnd As IntPtr, lpString As StringBuilder, nMaxCount As Integer) As Integer

    End Function



    Private Function GetWindowText(hwnd As IntPtr) As String

        Dim sb As New StringBuilder(256)

        GetWindowText(hwnd, sb, 255)

        Return sb.ToString()

    End Function



End Class