Dim RetVal As Long
      If wMsg = 786 And wParam = iAtom Then
         RetVal = FindWindow("AdobeAcrobat", vbNullString)
         If RetVal <> 0 Then
            Call SendMessageByNum(RetVal, WM_CHAR, 12, 0)
            'Call SendMessageByNum(RetVal, WM_KEYDOWN, vbKeyPageDown, 0)
            'Call SendMessageByNum(RetVal, WM_KEYUP, vbKeyPageDown, 0)
         End If
      Else
        WndProc = CallWindowProc(OldProc, hWnd, wMsg, wParam, lParam)
    End If