home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / HelpACoder45984132002.psc / frmSplash.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-01-03  |  2.5 KB  |  81 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSplash 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   4245
  5.    ClientLeft      =   255
  6.    ClientTop       =   1410
  7.    ClientWidth     =   7380
  8.    ClipControls    =   0   'False
  9.    ControlBox      =   0   'False
  10.    Icon            =   "frmSplash.frx":0000
  11.    KeyPreview      =   -1  'True
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4245
  16.    ScaleWidth      =   7380
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.Frame Frame1 
  20.       Caption         =   "Status:"
  21.       Height          =   3015
  22.       Left            =   0
  23.       TabIndex        =   1
  24.       Top             =   1200
  25.       Width           =   7335
  26.       Begin VB.Timer Timer1 
  27.          Interval        =   1
  28.          Left            =   840
  29.          Top             =   1800
  30.       End
  31.       Begin VB.Label Status 
  32.          BorderStyle     =   1  'Fixed Single
  33.          Caption         =   "Loading Form..."
  34.          BeginProperty Font 
  35.             Name            =   "MS Sans Serif"
  36.             Size            =   13.5
  37.             Charset         =   0
  38.             Weight          =   400
  39.             Underline       =   0   'False
  40.             Italic          =   0   'False
  41.             Strikethrough   =   0   'False
  42.          EndProperty
  43.          Height          =   2655
  44.          Left            =   120
  45.          TabIndex        =   2
  46.          Top             =   240
  47.          Width           =   7095
  48.       End
  49.    End
  50.    Begin VB.Label Label1 
  51.       BorderStyle     =   1  'Fixed Single
  52.       Caption         =   "Loading..."
  53.       BeginProperty Font 
  54.          Name            =   "Times New Roman"
  55.          Size            =   48
  56.          Charset         =   0
  57.          Weight          =   400
  58.          Underline       =   0   'False
  59.          Italic          =   0   'False
  60.          Strikethrough   =   0   'False
  61.       EndProperty
  62.       ForeColor       =   &H000000FF&
  63.       Height          =   1215
  64.       Left            =   0
  65.       TabIndex        =   0
  66.       Top             =   0
  67.       Width           =   7335
  68.    End
  69. Attribute VB_Name = "frmSplash"
  70. Attribute VB_GlobalNameSpace = False
  71. Attribute VB_Creatable = False
  72. Attribute VB_PredeclaredId = True
  73. Attribute VB_Exposed = False
  74. Private Sub Status_Click()
  75. End Sub
  76. Private Sub Timer1_Timer()
  77. Load Form1
  78. Form1.Show
  79. Timer1.Enabled = False
  80. End Sub
  81.