form1.frm

能够自动生成“情书”

         Top             =   1365
         Width           =   1755
      End
      Begin VB.Label Label23 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0FF&
         Caption         =   "分"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   2040
         TabIndex        =   65
         Top             =   1005
         Width           =   195
      End
      Begin VB.Label Label22 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0FF&
         Caption         =   "分"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   4680
         TabIndex        =   64
         Top             =   1005
         Width           =   195
      End
      Begin VB.Label Label21 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0FF&
         Caption         =   "最短时间："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   3000
         TabIndex        =   63
         Top             =   1005
         Width           =   975
      End
      Begin VB.Label Label20 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0FF&
         Caption         =   "最长时间："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   240
         TabIndex        =   62
         Top             =   1005
         Width           =   975
      End
      Begin VB.Label Label19 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0FF&
         Caption         =   "次"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   4680
         TabIndex        =   61
         Top             =   645
         Width           =   195
      End
      Begin VB.Label Label18 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0FF&
         Caption         =   "其中您打："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   3000
         TabIndex        =   60
         Top             =   645
         Width           =   975
      End
      Begin VB.Label Label17 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0FF&
         Caption         =   "共打了多少次电话？："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   240
         TabIndex        =   59
         Top             =   645
         Width           =   1950
      End
      Begin VB.Label Label16 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0FF&
         Caption         =   "您和她相识了多少天？："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   240
         TabIndex        =   58
         Top             =   285
         Width           =   2145
      End
   End
   Begin VB.Frame Frame2 
      BackColor       =   &H00FFC0FF&
      Caption         =   "资料填写"
      Height          =   2055
      Index           =   0
      Left            =   240
      TabIndex        =   52
      Top             =   720
      Width           =   5175
      Begin VB.TextBox Text4 
         Height          =   270
         Index           =   0
         Left            =   2040
         TabIndex        =   2
         Top             =   360
         Width           =   2895
      End
      Begin VB.TextBox Text4 
         Height          =   270
         Index           =   1
         Left            =   2040
         TabIndex        =   3
         Top             =   720
         Width           =   2895
      End
      Begin VB.TextBox Text4 
         Height          =   270
         Index           =   2
         Left            =   2040
         TabIndex        =   4
         Top             =   1080
         Width           =   2895
      End
      Begin VB.TextBox Text4 
         Height          =   270
         Index           =   3
         Left            =   2040
         TabIndex        =   5
         Top             =   1440
         Width           =   2895
      End
      Begin VB.Label Label12 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0FF&
         Caption         =   "请形容一下她的头发：："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   120
         TabIndex        =   56
         Top             =   405
         Width           =   2145
      End
      Begin VB.Label Label13 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0FF&
         Caption         =   "请描述一下她的眼睛："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   120
         TabIndex        =   55
         Top             =   765
         Width           =   1950
      End
      Begin VB.Label Label14 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0FF&
         Caption         =   "写下她最性感的部位："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   120
         TabIndex        =   54
         Top             =   1125
         Width           =   1950
      End
      Begin VB.Label Label15 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0FF&
         Caption         =   "请判断一下她的性格："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   120
         TabIndex        =   53
         Top             =   1485
         Width           =   1950
      End
   End
   Begin VB.Frame Frame2 
      BackColor       =   &H00FFC0FF&
      Caption         =   "资料填写"
      Height          =   2055
      Index           =   1
      Left            =   240
      TabIndex        =   42
      Top             =   720
      Visible         =   0   'False
      Width           =   5175
      Begin VB.TextBox Text5 
         Height          =   270
         Index           =   0
         Left            =   2040
         TabIndex        =   19
         Top             =   315