【VB开源代码栏目提醒】：网学会员VB开源代码为您提供frmForgotPass.frm参考，解决您在frmForgotPass.frm学习中工作中的难题，参考学习。

    VERSION 5.00
    Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
    Begin VB.Form frmForgotPass 
       BorderStyle     =   0  'None
       Caption         =   "Hirdhav Digital Diary - Forgot Password?"
       ClientHeight    =   5535
       ClientLeft      =   0
       ClientTop       =   0
       ClientWidth     =   4935
       BeginProperty Font 
          Name            =   "Arial"
          Size            =   9
          Charset         =   0
          Weight          =   700
          Underline       =   0   'False
          Italic          =   0   'False
          Strikethrough   =   0   'False
       EndProperty
       ForeColor       =   &H00000000&
       Icon            =   "frmForgotPass.frx":0000
       LinkTopic       =   "Form1"
       ScaleHeight     =   5535
       ScaleWidth      =   4935
       StartUpPosition =   2  'CenterScreen
       Begin VB.TextBox txtPass 
          Height          =   330
          Left            =   5000
          TabIndex        =   23
          Top             =   4680
          Width           =   615
       End
       Begin VB.TextBox txtAnswer 
          Appearance      =   0  'Flat
          Height          =   285
          Left            =   1920
          TabIndex        =   16
          Top             =   3480
          Width           =   2415
       End
       Begin VB.TextBox txtQuestion 
          Appearance      =   0  'Flat
          Height          =   285
          Left            =   1920
          TabIndex        =   14
          Top             =   3120
          Width           =   2415
       End
       Begin MSMask.MaskEdBox txtBDate 
          Height          =   285
          Left            =   1920
          TabIndex        =   11
          Top             =   2520
          Width           =   2415
          _ExtentX        =   4260
          _ExtentY        =   503
          _Version        =   393216
          Appearance      =   0
          MaxLength       =   10
          Mask            =   "##/##/####"
          PromptChar      =   "_"
       End
       Begin VB.TextBox txtEMail 
          Appearance      =   0  'Flat
          Height          =   285
          Left            =   1920
          TabIndex        =   9
          Top             =   2160
          Width           =   2415
       End
       Begin VB.TextBox txtLName 
          Appearance      =   0  'Flat
          Height          =   285
          Left            =   1920
          TabIndex        =   7
          Top             =   1800
          Width           =   2415
       End
       Begin VB.TextBox txtFName 
          Appearance      =   0  'Flat
          Height          =   285
          Left            =   1920
          TabIndex        =   5
          Top             =   1440
          Width           =   2415
       End
       Begin VB.TextBox txtUsername 
          Appearance      =   0  'Flat
          Height          =   285
          Left            =   1920
          TabIndex        =   3
          Top             =   1080
          Width           =   2415
       End
       Begin VB.Label lblCaptionSupport 
          BackStyle       =   0  'Transparent
          Height          =   255
          Left            =   0
          TabIndex        =   24
          Top             =   0
          Width           =   6255
       End
       Begin VB.Label lblYourPass 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "Your Pass"
          BeginProperty Font 
             Name            =   "Arial"
             Size            =   20.25
             Charset         =   0
             Weight          =   700
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          ForeColor       =   &H00FFFFC0&
          Height          =   480
          Left            =   1680
          TabIndex        =   22
          Top             =   4920
          Width           =   2010
       End
       Begin VB.Line Line5 
          BorderWidth     =   2
          X1              =   0
          X2              =   4920
          Y1              =   5520
          Y2              =   5520
       End
       Begin VB.Label Label10 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "你的密码为:"
          BeginProperty Font 
             Name            =   "Arial"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   225
          Left            =   240
          TabIndex        =   21
          Top             =   4680
          Width           =   1065
       End
       Begin VB.Line Line4 
          BorderStyle     =   5  'Dash-Dot-Dot
          X1              =   120
          X2              =   4800
          Y1              =   4560
          Y2              =   4560
       End
       Begin VB.Label lblCancelSupport 
          BackStyle       =   0  'Transparent
          Height          =   495
          Left            =   2760
          TabIndex        =   20
          Top             =   3960
          Width           =   1455
       End
       Begin VB.Label lblCancel 
          Alignment       =   2  'Center
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "取消/确定"
          BeginProperty Font 
             Name            =   "Arial"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   225
          Left            =   3075
          TabIndex        =   19
          Top             =   4080
          Width           =   795
       End
       Begin VB.Shape shapeCancel 
          BackStyle       =   1  'Opaque
          Height          =   495
          Left            =   2760
          Top             =   3960
          Width           =   1455
       End
       Begin VB.Label lblRPSupport 
          BackStyle       =   0  'Transparent
          Height          =   495
          Left            =   480
          TabIndex        =   18
          Top             =   3960
          Width           =   1455
       End
       Begin VB.Label lblRP 
          Alignment       =   2  'Center
          BackStyle       =   0  'Transparent
          Caption         =   "           获取           密码"
          BeginProperty Font 
             Name            =   "Arial"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   465
          Left            =   480
          TabIndex        =   17
          Top             =   3980
          Width           =   1395
       End
       Begin VB.Shape shapeRP 
          BackStyle       =   1  'Opaque
          Height          =   495
          Left            =   480
          Top             =   3960
          Width           =   1455
       End
       Begin VB.Label Label9 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "问题答案:"
          BeginProperty Font 
             Name            =   "Arial"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   225
          Left            =   1020
          TabIndex        =   15
          Top             =   3480
          Width           =   765
       End
       Begin VB.Label Label8 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "提示问题:"
          BeginProperty Font 
             Name            =   "Arial"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   225
          Left            =   1020
          TabIndex        =   13
          Top             =   3120
          Width           =   765
       End
       Begin VB.Label Label7 
          Alignment       =   2  'Center
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "DD / MM / YYYY"
          Height          =