VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Click()
    Dim PassWord As String
    PassWord = InputBox("请输入密码:", "提示")
    Select Case PassWord
        Case "123"
            MsgBox "你好 Wizard ，欢迎使用本系统！"
        Case "456"
            MsgBox "你好 Marry ，欢迎使用本系统！"
        Case "789"
        MsgBox "你好 White ，欢迎使用本系统！"
    Case Else
        MsgBox "密码错误！"
        End                     '退出程序
    End Select
End Sub

