這 個(gè) 問 題 可 以 這 樣 解 決 ： 
     1、 加 入 一 個(gè) Timer定 時(shí) 器 控 件 ， 設(shè) 置 為 你 所 需 要 翻 頁 的 時(shí) 間 
     2、 利 用 API函 數(shù) 產(chǎn) 生 模 擬 按 鍵 
    下 面 為 程 序 代 碼 ： 
     Private Declare Function GetForegroundWindow& Lib "user32" () 
     Private Declare Function GetWindowText& Lib "user32" Alias "GetWindowTextA" _ 
     (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) 
     Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan _ 
     As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) 
     
     
     Public Sub MyCapture() '生 成 一 次 模 擬 擊 鍵 Pagedown 
     keybd_event vbKeyPageDown, 0, 0, 0 
     End Sub 
     
     
     Private Sub Timer_Timer() 
     Dim dl1&, dl2& 
     Dim Canp As String * 255 
     dl1& = GetForegroundWindow&() '獲 取 當(dāng) 前 活 動(dòng) 窗 口 的 句 柄 
     dl2& = GetWindowText&(dl1&, Canp$, 255) '獲 取 窗 口 的 標(biāo) 題 
     If Canp$ <> Me.CaptionThen: Exit Sub '如 當(dāng) 前 活 動(dòng) 窗 體 不 
     '為 本 窗 體 ， 則 不 作 處 理 
     MyCapture 
     End Sub 
    另 外 ， 也 可 以 用 SENDKEYS語 句 來 實(shí) 現(xiàn) ： 
     sendkeys "{PGDN}" 
<END>