home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap36 / splash.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-19  |  2.9 KB  |  90 lines
  1. VERSION 4.00
  2. Begin VB.Form frmSplash 
  3.    BorderStyle     =   1  'Fixed Single
  4.    ClientHeight    =   2355
  5.    ClientLeft      =   2250
  6.    ClientTop       =   1545
  7.    ClientWidth     =   3015
  8.    ClipControls    =   0   'False
  9.    ControlBox      =   0   'False
  10.    Height          =   2760
  11.    Left            =   2190
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2355
  16.    ScaleWidth      =   3015
  17.    Top             =   1200
  18.    Width           =   3135
  19.    Begin VB.PictureBox Picture1 
  20.       Height          =   2295
  21.       Left            =   30
  22.       ScaleHeight     =   2235
  23.       ScaleWidth      =   2895
  24.       TabIndex        =   0
  25.       Top             =   30
  26.       Width           =   2955
  27.       Begin VB.Label disclaimer 
  28.          Alignment       =   2  'Center
  29.          Caption         =   "ONLY FOR ENTERTAINMENT"
  30.          BeginProperty Font 
  31.             name            =   "MS Sans Serif"
  32.             charset         =   0
  33.             weight          =   700
  34.             size            =   9.75
  35.             underline       =   0   'False
  36.             italic          =   0   'False
  37.             strikethrough   =   0   'False
  38.          EndProperty
  39.          Height          =   615
  40.          Left            =   0
  41.          TabIndex        =   2
  42.          Top             =   1200
  43.          Width           =   2895
  44.       End
  45.       Begin VB.Image Image1 
  46.          Height          =   960
  47.          Left            =   240
  48.          Picture         =   "Splash.frx":0000
  49.          Top             =   150
  50.          Width           =   2490
  51.       End
  52.       Begin VB.Label lblVersion 
  53.          Alignment       =   2  'Center
  54.          BeginProperty Font 
  55.             name            =   "MS Sans Serif"
  56.             charset         =   0
  57.             weight          =   700
  58.             size            =   12
  59.             underline       =   0   'False
  60.             italic          =   0   'False
  61.             strikethrough   =   0   'False
  62.          EndProperty
  63.          Height          =   375
  64.          Left            =   30
  65.          TabIndex        =   1
  66.          Top             =   1800
  67.          Width           =   2835
  68.       End
  69.    End
  70. Attribute VB_Name = "frmSplash"
  71. Attribute VB_Creatable = False
  72. Attribute VB_Exposed = False
  73. Option Explicit
  74. Private Sub Form_Activate()
  75.   'Force Windows to display our screen before moving on.
  76.   frmSplash.Refresh
  77.   'Start the main program loading and configuring from this point on.
  78.   Load frmMain
  79.   frmMain.Show
  80. End Sub
  81. Private Sub Form_Initialize()
  82.   'Center the form on the screen.
  83.   Left = (Screen.Width - Width) / 2
  84.   TOP = (Screen.Height - Height) / 2
  85.   'Set the hourglass pointer.
  86.   MousePointer = 11
  87.   'Display version information on label control.
  88.   lblVersion.Caption = "Version " + gProgramVersion
  89. End Sub
  90.