Я пытаюсь автоматизировать некоторые Attachmate Extra! с VBA. Как мне нажать Page Down на отражение?

Question

Поэтому мне нужно автоматизировать задачу для компании, в которой я работаю, и это включает Attachmate Reflection Extra! (.Edp)

Я пытался нажать клавишу Page Down безуспешно. Не с sendcontrolkey, не с "RollUp", не с "PageDown", "PGDN", ничего не работает. Как я могу нажать PageDown на Attachmate Extra?

       strPag = Trim(ExtraEcran1.getstring(13, 2, 8))
            ExtraEcran1.SendKeys "<RollUp>"
        qtdPag = qtdPag + 1

        Do While strPag <> Trim(ExtraEcran1.getstring(13, 2, 8)) And i < 5
            strPag = Trim(ExtraEcran1.getstring(13, 2, 8))
            i = i + 1
            qtdPag = qtdPag + 1
            ExtraEcran1.SendKeys "<PAGEDOWN>"
        Loop

Это записанный макрос из Attachmate Extra!, который мне не помог

Dim osCurrentScreen As Screen
Dim osCurrentTerminal As Terminal
Dim returnValue As Integer


Const NEVER_TIME_OUT = 0

Dim ESC As String   ' Chr(rcESC) = Chr(27) = Control-[

Set osCurrentTerminal = ThisFrame.SelectedView.Control
Set osCurrentScreen = osCurrentTerminal.Screen

ESC = Chr(27)

' Press VtNextScreen (Executar a função Próxima tela).
Call osCurrentScreen.SendControlKey(ControlKeyCode_NextScreen)
'Wait for a string on the host screen before continuing
returnValue = osCurrentScreen.WaitForString3(ESC & ">", NEVER_TIME_OUT, WaitForOption.WaitForOption_AllowKeystrokes)
If (returnValue <> ReturnCode_Success) Then
    Err.Raise 11001, "WaitForString3", "Timeout waiting for string.", "VBAHelp.chm", "11001"
End If

Кроме того, вот коды дополнительных ключей отправки https://docs.attachmate.com/extra/x-treme/apis/com/5250functionkeys_des.htm

Редактировать: никак не мог заставить его работать. Решите вместо этого пойти с большим количеством клавиш вниз.