實(shí) 現(xiàn) 你 的 要 求 有 些 麻 煩 ， 因 為 VB不 允 許 設(shè) 置 禁 止 狀 態(tài) 時(shí) 的 顏 色 。 
    一 種 辦 法 是 在 Click事 件 中 強(qiáng) 制 取 值 ， 比 如 將 CheckBox鎖 定 為 選 中 ， 可 以 ： 
    Private Sub Check1_Click() 
     Check1.Value = 1 
    End Sub 
    當(dāng) 然 這 種 方 法 ， 在 用 戶 點(diǎn) 擊 時(shí) 略 微 有 點(diǎn) 閃 。 
    另 一 種 更 好 的 辦 法 是 先 放 置 一 個(gè) Frame控 件 ， 在 Frame控 件 內(nèi) 部 放 置 一 個(gè) 檢 查 框 。 然 后 設(shè) 置 Frame控 件 的 BorderStyle屬 性 為 0， Enabled屬 性 為 False。 這 樣 也 可 以 實(shí) 現(xiàn) "Lock"功 能 。 這 種 方 法 沒(méi) 有 前 面 方 法 的 閃 爍 的 毛 病 。 
<END>