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