home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fontview / intro.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  3.4 KB  |  116 lines
  1. VERSION 2.00
  2. Begin Form Intro 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Font Viewer"
  6.    ClientHeight    =   2910
  7.    ClientLeft      =   1980
  8.    ClientTop       =   1935
  9.    ClientWidth     =   4830
  10.    ControlBox      =   0   'False
  11.    Height          =   3315
  12.    Icon            =   INTRO.FRX:0000
  13.    Left            =   1920
  14.    LinkMode        =   1  'Source
  15.    LinkTopic       =   "Form1"
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   2910
  19.    ScaleWidth      =   4830
  20.    Top             =   1590
  21.    Width           =   4950
  22.    Begin PictureBox Picture1 
  23.       BackColor       =   &H00FFFFFF&
  24.       BorderStyle     =   0  'None
  25.       Height          =   555
  26.       Left            =   1980
  27.       Picture         =   INTRO.FRX:0302
  28.       ScaleHeight     =   555
  29.       ScaleWidth      =   645
  30.       TabIndex        =   1
  31.       Top             =   1260
  32.       Width           =   645
  33.    End
  34.    Begin Timer Timer1 
  35.       Interval        =   8000
  36.       Left            =   3600
  37.       Top             =   1170
  38.    End
  39.    Begin Label Label6 
  40.       Caption         =   "User Education"
  41.       ForeColor       =   &H00800000&
  42.       Height          =   285
  43.       Left            =   3150
  44.       TabIndex        =   6
  45.       Top             =   2520
  46.       Width           =   1365
  47.    End
  48.    Begin Label Label5 
  49.       Caption         =   "Applications/DABU"
  50.       ForeColor       =   &H00800000&
  51.       Height          =   195
  52.       Left            =   270
  53.       TabIndex        =   5
  54.       Top             =   2520
  55.       Width           =   1815
  56.    End
  57.    Begin Label Label4 
  58.       Caption         =   "Frederick F. Freeland Jr."
  59.       ForeColor       =   &H00800000&
  60.       Height          =   285
  61.       Left            =   1260
  62.       TabIndex        =   4
  63.       Top             =   2250
  64.       Width           =   2265
  65.    End
  66.    Begin Label Label3 
  67.       Caption         =   "Developed by:"
  68.       ForeColor       =   &H00800000&
  69.       Height          =   285
  70.       Left            =   1620
  71.       TabIndex        =   3
  72.       Top             =   1980
  73.       Width           =   1365
  74.    End
  75.    Begin Label Label2 
  76.       BackColor       =   &H00FFFFFF&
  77.       Caption         =   "
  78.   1990 Microsoft Corporation."
  79.       ForeColor       =   &H00C00000&
  80.       Height          =   285
  81.       Left            =   990
  82.       TabIndex        =   2
  83.       Top             =   810
  84.       Width           =   2895
  85.    End
  86.    Begin Label Label7 
  87.       BackColor       =   &H00FFFFFF&
  88.       Caption         =   "Version 2.0"
  89.       ForeColor       =   &H00C00000&
  90.       Height          =   195
  91.       Left            =   1800
  92.       TabIndex        =   7
  93.       Top             =   540
  94.       Width           =   1275
  95.    End
  96.    Begin Label Label1 
  97.       BackColor       =   &H00FFFFFF&
  98.       Caption         =   "Microsoft Font Viewer "
  99.       ForeColor       =   &H000000C0&
  100.       Height          =   285
  101.       Left            =   1260
  102.       TabIndex        =   0
  103.       Top             =   270
  104.       Width           =   2535
  105.    End
  106. Sub Form_Load ()
  107.     ' Initialize form position
  108.     Left = (Screen.Width - Width) / 2
  109.     Top = (Screen.Height - Height) / 2
  110.     FontViewer.Hide
  111. End Sub
  112. Sub Timer1_Timer ()
  113.     FontViewer.Show
  114.     Unload Intro
  115. End Sub
  116.