可 以 Frame控 件 數(shù) 組 來 設(shè) 置 每 一 頁 ,用 一 控 件 的 Tag屬 性 記 信 當(dāng) 前 Frame的 Index,可 將 Frame控 件 的 Bord 設(shè) 置 為 無 線 條 (none),將 每 頁 的 內(nèi) 容 放 入 對(duì) 應(yīng) 的 Frame容 器 中 。 Next時(shí) 
    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時(shí) : if val(控 件 .Tag)>0 Then FFrame(控 件 .Tag-1).Visible=True 
<END>