home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fbifile / misc.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  4.3 KB  |  162 lines
  1. VERSION 2.00
  2. Begin Form Misc 
  3.    Caption         =   "Miscellaneous"
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   1020
  6.    ClientTop       =   1875
  7.    ClientWidth     =   7365
  8.    ControlBox      =   0   'False
  9.    Height          =   4425
  10.    Left            =   960
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4020
  16.    ScaleWidth      =   7365
  17.    Top             =   1530
  18.    Width           =   7485
  19.    Begin TextBox hobby3 
  20.       Height          =   300
  21.       Left            =   1800
  22.       TabIndex        =   6
  23.       Top             =   3600
  24.       Width           =   2505
  25.    End
  26.    Begin TextBox hobby2 
  27.       Height          =   300
  28.       Left            =   1800
  29.       TabIndex        =   5
  30.       Top             =   3120
  31.       Width           =   2505
  32.    End
  33.    Begin TextBox hobby1 
  34.       Height          =   300
  35.       Left            =   1800
  36.       TabIndex        =   4
  37.       Top             =   2640
  38.       Width           =   2505
  39.    End
  40.    Begin CommandButton Command2 
  41.       Cancel          =   -1  'True
  42.       Caption         =   "Quit"
  43.       Height          =   495
  44.       Left            =   5640
  45.       TabIndex        =   15
  46.       Top             =   2280
  47.       Width           =   1575
  48.    End
  49.    Begin TextBox pres3 
  50.       Height          =   300
  51.       Left            =   1800
  52.       TabIndex        =   3
  53.       Top             =   1560
  54.       Width           =   2505
  55.    End
  56.    Begin CommandButton Command1 
  57.       Caption         =   "Generate Profile"
  58.       Height          =   495
  59.       Left            =   5640
  60.       TabIndex        =   7
  61.       Top             =   1320
  62.       Width           =   1575
  63.    End
  64.    Begin TextBox pres2 
  65.       Height          =   300
  66.       Left            =   1800
  67.       TabIndex        =   2
  68.       Top             =   1080
  69.       Width           =   2505
  70.    End
  71.    Begin TextBox pres1 
  72.       Height          =   300
  73.       Left            =   1800
  74.       TabIndex        =   1
  75.       Top             =   600
  76.       Width           =   2505
  77.    End
  78.    Begin Label Label8 
  79.       Caption         =   "Hobby #3"
  80.       Height          =   300
  81.       Left            =   480
  82.       TabIndex        =   14
  83.       Top             =   3600
  84.       Width           =   975
  85.    End
  86.    Begin Label Label7 
  87.       Caption         =   "Hobby #2"
  88.       Height          =   300
  89.       Left            =   480
  90.       TabIndex        =   13
  91.       Top             =   3120
  92.       Width           =   975
  93.    End
  94.    Begin Label Label6 
  95.       Caption         =   "Hobby #1"
  96.       Height          =   300
  97.       Left            =   480
  98.       TabIndex        =   12
  99.       Top             =   2640
  100.       Width           =   975
  101.    End
  102.    Begin Label Label5 
  103.       Caption         =   "List 3 of your hobbies"
  104.       Height          =   255
  105.       Left            =   1800
  106.       TabIndex        =   11
  107.       Top             =   2160
  108.       Width           =   1935
  109.    End
  110.    Begin Label Label4 
  111.       Caption         =   "President #3"
  112.       Height          =   300
  113.       Left            =   480
  114.       TabIndex        =   10
  115.       Top             =   1560
  116.       Width           =   1215
  117.    End
  118.    Begin Label Label3 
  119.       Caption         =   "President #2"
  120.       Height          =   300
  121.       Left            =   480
  122.       TabIndex        =   9
  123.       Top             =   1080
  124.       Width           =   1215
  125.    End
  126.    Begin Label Label2 
  127.       Caption         =   "President #1"
  128.       Height          =   300
  129.       Left            =   480
  130.       TabIndex        =   8
  131.       Top             =   600
  132.       Width           =   1215
  133.    End
  134.    Begin Label Label1 
  135.       Caption         =   "List your 3 favorite presidents"
  136.       Height          =   255
  137.       Left            =   1800
  138.       TabIndex        =   0
  139.       Top             =   120
  140.       Width           =   2655
  141.    End
  142. Sub command1_click ()
  143.     counter = 0
  144.     misc.Hide
  145.     fbifile.Show
  146.     Intelligence.Show
  147.     Intelligence.Timer1.Enabled = -1
  148. End Sub
  149. Sub Command2_Click ()
  150.     End
  151. End Sub
  152. Sub Form_Activate ()
  153.     i% = sndplaysound("misc.wav", 1)
  154.     pres1.text = ""
  155.     pres2.text = ""
  156.     pres3.text = ""
  157.     hobby1.text = ""
  158.     hobby2.text = ""
  159.     hobby3.text = ""
  160.     pres1.SetFocus
  161. End Sub
  162.