VERSION 4.00
Begin VB.Form frmSplash 
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   2355
   ClientLeft      =   2250
   ClientTop       =   1545
   ClientWidth     =   3015
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Height          =   2760
   Left            =   2190
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2355
   ScaleWidth      =   3015
   Top             =   1200
   Width           =   3135
   Begin VB.PictureBox Picture1 
      Height          =   2295
      Left            =   30
      ScaleHeight     =   2235
      ScaleWidth      =   2895
      TabIndex        =   0
      Top             =   30
      Width           =   2955
      Begin VB.Label disclaimer 
         Alignment       =   2  'Center
         Caption         =   "ONLY FOR ENTERTAINMENT"
         BeginProperty Font 
            name            =   "MS Sans Serif"
            charset         =   0
            weight          =   700
            size            =   9.75
            underline       =   0   'False
            italic          =   0   'False
            strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   0
         TabIndex        =   2
         Top             =   1200
         Width           =   2895
      End
      Begin VB.Image Image1 
         Height          =   960
         Left            =   240
         Picture         =   "Splash.frx":0000
         Top             =   150
         Width           =   2490
      End
      Begin VB.Label lblVersion 
         Alignment       =   2  'Center
         BeginProperty Font 
            name            =   "MS Sans Serif"
            charset         =   0
            weight          =   700
            size            =   12
            underline       =   0   'False
            italic          =   0   'False
            strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   30
         TabIndex        =   1
         Top             =   1800
         Width           =   2835
      End
   End
Attribute VB_Name = "frmSplash"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Activate()
  'Force Windows to display our screen before moving on.
  frmSplash.Refresh
  'Start the main program loading and configuring from this point on.
  Load frmMain
  frmMain.Show
End Sub
Private Sub Form_Initialize()
  'Center the form on the screen.
  Left = (Screen.Width - Width) / 2
  TOP = (Screen.Height - Height) / 2
  'Set the hourglass pointer.
  MousePointer = 11
  'Display version information on label control.
  lblVersion.Caption = "Version " + gProgramVersion
End Sub