在 frmLogin窗 體 上 面 放 置 一 個(gè) 文 本 框 ， 將 它 的 passwordchar屬 性 設(shè) 置 為 "*"， 這 樣 用 戶 在 輸 入 密 碼 時(shí) ， 文 本 框 顯 示 “ *” 。 你 可 以 在 Form1中 定 義 一 個(gè) Public變 量 sPassword。 在 Command1_Click()中 如 下 ： 
    sPassword = "" 
    frmLogin.Show 1 
    If sPassword = "你 的 密 碼 " Then 
     MsgBox "好 同 志 ！ " 
    Else 
     MsgBox "敵 人 ！ " 
    End If 
    在 frmLogin的 確 認(rèn) 按 鈕 的 Click事 件 中 加 入 如 下 語 句 ： 
    Form1.sPassword = Text1.Text 
    就 是 這 樣 。 當(dāng) 然 你 也 可 以 把 Form1中 檢 驗(yàn) 的 內(nèi) 容 放 在 frmLogin中 。 
<END>
： 
    如 果 在 啟 動(dòng) 程 序 時(shí) 
    可 加 模 塊 ： 
    sub main() 
    dim a as string 
    a=inputbox("輸 入 密 碼 ") 
    if a="密 碼 " then form1.show 
    else 
    msgbox "非 法 用 戶 !!" 
    end 
    end if 
    end sub 
    最 后 啟 動(dòng) main() 
<END>