可 以 Frame控 件 數 組 來 設 置 每 一 頁 ,用 一 控 件 的 Tag屬 性 記 信 當 前 Frame的 Index,可 將 Frame控 件 的 Bord 設 置 為 無 線 條 (none),將 每 頁 的 內 容 放 入 對 應 的 Frame容 器 中 。 Next時 
    dim nIndex As integer 
    nIndex=Frame控 件 的 最 大 索 引 值 
    For i=0 to nIndex 
     Frame(i).Visible=False 
    Next 
    if val(控 件 .Tag)+1<=nIndex Then FFrame(控 件 .Tag+1).Visible=True 
    Back時 : if val(控 件 .Tag)>0 Then FFrame(控 件 .Tag-1).Visible=True 
<END>