home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / print / vbbook13 / vbbook13.frm < prev    next >
Text File  |  1995-02-26  |  4KB  |  115 lines
  1. VERSION 2.00
  2. Begin Form VBBook 
  3.    BackColor       =   &H00FF0000&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "VB Book"
  6.    ClientHeight    =   2715
  7.    ClientLeft      =   1620
  8.    ClientTop       =   1785
  9.    ClientWidth     =   6840
  10.    Height          =   3240
  11.    Icon            =   VBBOOK13.FRX:0000
  12.    Left            =   1560
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   2715
  18.    ScaleWidth      =   6840
  19.    Top             =   1320
  20.    Width           =   6960
  21.    Begin Timer Timer1 
  22.       Interval        =   10000
  23.       Left            =   0
  24.       Top             =   2280
  25.    End
  26.    Begin Frame Frame1 
  27.       BackColor       =   &H00FFFFFF&
  28.       ForeColor       =   &H00000000&
  29.       Height          =   2415
  30.       Left            =   240
  31.       TabIndex        =   0
  32.       Top             =   120
  33.       Width           =   6375
  34.       Begin CommandButton go1 
  35.          Caption         =   "Go"
  36.          Height          =   375
  37.          Left            =   2640
  38.          TabIndex        =   3
  39.          Top             =   1800
  40.          Width           =   615
  41.       End
  42.       Begin Label Label3 
  43.          Alignment       =   2  'Center
  44.          Caption         =   "Version 1.3, 30 Mar 93"
  45.          FontBold        =   -1  'True
  46.          FontItalic      =   0   'False
  47.          FontName        =   "MS Sans Serif"
  48.          FontSize        =   12
  49.          FontStrikethru  =   0   'False
  50.          FontUnderline   =   0   'False
  51.          ForeColor       =   &H00800000&
  52.          Height          =   495
  53.          Left            =   1320
  54.          TabIndex        =   4
  55.          Top             =   1080
  56.          Width           =   3255
  57.       End
  58.       Begin Label Label2 
  59.          Caption         =   "by Dennis Scott"
  60.          FontBold        =   -1  'True
  61.          FontItalic      =   -1  'True
  62.          FontName        =   "MS Sans Serif"
  63.          FontSize        =   8.25
  64.          FontStrikethru  =   0   'False
  65.          FontUnderline   =   0   'False
  66.          ForeColor       =   &H00008080&
  67.          Height          =   255
  68.          Left            =   2160
  69.          TabIndex        =   2
  70.          Top             =   720
  71.          Width           =   1935
  72.       End
  73.       Begin Label Label1 
  74.          Caption         =   "VB Book"
  75.          FontBold        =   -1  'True
  76.          FontItalic      =   0   'False
  77.          FontName        =   "MS Sans Serif"
  78.          FontSize        =   18
  79.          FontStrikethru  =   0   'False
  80.          FontUnderline   =   0   'False
  81.          ForeColor       =   &H000000FF&
  82.          Height          =   495
  83.          Left            =   2160
  84.          TabIndex        =   1
  85.          Top             =   240
  86.          Width           =   1815
  87.       End
  88.    End
  89. End
  90. 'This form is the initial Title Box
  91.  
  92. Sub Form_Load ()
  93.     CenterForm vbbook
  94.     vbbook.Show
  95. End Sub
  96.  
  97. Sub GO1_Click ()
  98.     
  99.     vbbook.Hide            'dispose of VBBOOK form
  100.     'Removed the call to VBBOUT so that the user
  101.     'can see the desktop
  102.     CenterForm vbbinp
  103.     vbbinp.Show            'move on to VBBINP form
  104.     Timer1.Enabled = 0     'Turn off the timer
  105. End Sub
  106.  
  107. Sub Timer1_Timer ()
  108.     vbbook.Hide              'Activated after 5 seconds
  109.     CenterForm vbbinp
  110.     'VBBout.Show              'which was set when the form
  111.     vbbinp.Show              'was designed (5000 mSec)
  112.     Timer1.Enabled = 0       'Turn off the timer
  113. End Sub
  114.  
  115.