Refresh Document by Lotus Script

'Global Declaration
Declare Sub keybd_event Lib "user32.dll" (Byval bVk As Integer, Byval bScan As Integer, Byval dwFlags As Integer,Byval dwExtraInfo As Integer)
         

Sub RefreshDoc

            Const VK_F9 = &H78

            Const KEYEVENTF_KEYDOWN = &H0
            Const KEYEVENTF_KEYUP = &H2

'Command line same as Press and release F9

            keybd_event VK_F9, 0 , KEYEVENTF_KEYDOWN , 0
            keybd_event VK_F9, 0 , KEYEVENTF_KEYUP , 0

End Sub