【VB开源代码栏目提醒】：以下是网学会员为您推荐的VB开源代码-frmGetAutho2.frm，希望本篇文章对您学习有所帮助。

    VERSION 5.00
    Begin VB.Form frmGetAutho2 
       BorderStyle     =   0  'None
       Caption         =   "Hirdhav Digital Diary - Get Autho (Step 2)"
       ClientHeight    =   6135
       ClientLeft      =   0
       ClientTop       =   0
       ClientWidth     =   6150
       BeginProperty Font 
          Name            =   "Arial"
          Size            =   9
          Charset         =   0
          Weight          =   700
          Underline       =   0   'False
          Italic          =   0   'False
          Strikethrough   =   0   'False
       EndProperty
       ForeColor       =   &H00000000&
       Icon            =   "frmGetAutho2.frx":0000
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       MinButton       =   0   'False
       ScaleHeight     =   6135
       ScaleWidth      =   6150
       StartUpPosition =   2  'CenterScreen
       Begin VB.TextBox txtGender 
          Appearance      =   0  'Flat
          Height          =   285
          Left            =   2160
          MaxLength       =   1
          TabIndex        =   9
          Text            =   "M/F"
          Top             =   2880
          Width           =   375
       End
       Begin VB.TextBox txtAnswer 
          Appearance      =   0  'Flat
          Height          =   285
          Left            =   2160
          TabIndex        =   23
          Top             =   5040
          Width           =   3135
       End
       Begin VB.TextBox txtQuestion 
          Appearance      =   0  'Flat
          Height          =   285
          Left            =   2160
          TabIndex        =   21
          Top             =   4680
          Width           =   3135
       End
       Begin VB.TextBox txtPassword 
          Appearance      =   0  'Flat
          Height          =   285
          IMEMode         =   3  'DISABLE
          Left            =   2160
          PasswordChar    =   "*"
          TabIndex        =   1
          Top             =   1800
          Width           =   3135
       End
       Begin VB.TextBox txtUName 
          Appearance      =   0  'Flat
          Height          =   285
          Left            =   2160
          TabIndex        =   0
          Top             =   1440
          Width           =   3135
       End
       Begin VB.TextBox txtCountry 
          Appearance      =   0  'Flat
          Height          =   285
          Left            =   2160
          TabIndex        =   17
          Top             =   4320
          Width           =   3135
       End
       Begin VB.TextBox txtState 
          Appearance      =   0  'Flat
          Height          =   285
          Left            =   2160
          TabIndex        =   15
          Top             =   3960
          Width           =   3135
       End
       Begin VB.TextBox txtCity 
          Appearance      =   0  'Flat
          Height          =   285
          Left            =   2160
          TabIndex        =   13
          Top             =   3600
          Width           =   3135
       End
       Begin VB.TextBox txtEMail 
          Appearance      =   0  'Flat
          Height          =   285
          Left            =   2160
          TabIndex        =   11
          Top             =   3240
          Width           =   3135
       End
       Begin VB.TextBox txtLName 
          Appearance      =   0  'Flat
          Height          =   285
          Left            =   2160
          TabIndex        =   8
          Top             =   2520
          Width           =   3135
       End
       Begin VB.TextBox txtFName 
          Appearance      =   0  'Flat
          Height          =   285
          Left            =   2160
          TabIndex        =   7
          Top             =   2160
          Width           =   3135
       End
       Begin VB.Label Label13 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "Male / Female"
          Height          =   225
          Left            =   2640
          TabIndex        =   31
          Top             =   2880
          Width           =   1155
       End
       Begin VB.Label Label12 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "Gender :"
          Height          =   225
          Left            =   1200
          TabIndex        =   30
          Top             =   2880
          Width           =   705
       End
       Begin VB.Label lblCancelSupport 
          BackStyle       =   0  'Transparent
          Height          =   495
          Left            =   240
          TabIndex        =   29
          Top             =   5520
          Width           =   1575
       End
       Begin VB.Label lblCheckINETSupport 
          BackStyle       =   0  'Transparent
          Height          =   495
          Left            =   2040
          TabIndex        =   28
          Top             =   5520
          Width           =   2055
       End
       Begin VB.Label lblNextSupport 
          BackStyle       =   0  'Transparent
          Height          =   495
          Left            =   4320
          TabIndex        =   27
          Top             =   5520
          Width           =   1575
       End
       Begin VB.Label lblCancel 
          Alignment       =   2  'Center
          BackStyle       =   0  'Transparent
          Caption         =   "Cancel"
          Height          =   255
          Left            =   240
          TabIndex        =   26
          Top             =   5640
          Width           =   1575
       End
       Begin VB.Label lblCheckINET 
          Alignment       =   2  'Center
          BackStyle       =   0  'Transparent
          Caption         =   "Check Internet Status"
          Height          =   255
          Left            =   2040
          TabIndex        =   25
          Top             =   5640
          Width           =   2055
       End
       Begin VB.Label lblNext 
          Alignment       =   2  'Center
          BackStyle       =   0  'Transparent
          Caption         =   "Next >"
          Height          =   255
          Left            =   4320
          TabIndex        =   24
          Top             =   5640
          Width           =   1575
       End
       Begin VB.Shape shapeCheckINET 
          BackStyle       =   1  'Opaque
          Height          =   495
          Left            =   2040
          Top             =   5520
          Width           =   2055
       End
       Begin VB.Shape shapeNext 
          BackStyle       =   1  'Opaque
          Height          =   495
          Left            =   4320
          Top             =   5520
          Width           =   1575
       End
       Begin VB.Shape shapeCancel 
          BackStyle       =   1  'Opaque
          Height          =   495
          Left            =   240
          Top             =   5520
          Width           =   1575
       End
       Begin VB.Line Line4 
          BorderWidth     =   2
          X1              =   0
          X2              =   6120
          Y1              =   6120
          Y2              =   6120
       End
       Begin VB.Label Label11 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "Hint Answer :"
          Height          =   225
          Left            =   840
          TabIndex        =   22
          Top             =   5040
          Width           =   1125
       End
       Begin VB.Label Label10 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "Hint Question :"
          Height          =   225
          Left            =   720
          TabIndex        =   20
          Top             =   4680
          Width           =   1230
       End
       Begin VB.Label Label9 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "Password :"
          Height          =   225
          Left            =   960
          TabIndex        =   19
          Top             =   1800
          Width           =   960
       End
       Begin VB.Label Label8 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "Username :"
          Height          =   225
          Left            =   960
          TabIndex        =   18
          Top             =   1440
          Width           =   975
       End
       Begin VB.Label Label7 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "Country :"
          Height          =   225
          Left            =   1200
          TabIndex        =   16
          Top             =   4320
          Width           =   750
       End
       Begin VB.Label Label6 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "State:"
          Height