home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Words-With206459582007.psc / frmSplash.frm < prev    next >
Text File  |  2007-05-06  |  2KB  |  84 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSplash 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   4125
  5.    ClientLeft      =   255
  6.    ClientTop       =   1410
  7.    ClientWidth     =   6030
  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.    Picture         =   "frmSplash.frx":000C
  16.    ScaleHeight     =   4125
  17.    ScaleWidth      =   6030
  18.    ShowInTaskbar   =   0   'False
  19.    StartUpPosition =   2  'CenterScreen
  20.    Begin VB.Timer Timer1 
  21.       Interval        =   1000
  22.       Left            =   120
  23.       Top             =   3600
  24.    End
  25.    Begin VB.Label lblProductName 
  26.       Alignment       =   2  'Center
  27.       BackStyle       =   0  'Transparent
  28.       ForeColor       =   &H8000000E&
  29.       Height          =   375
  30.       Left            =   1800
  31.       TabIndex        =   1
  32.       Top             =   2880
  33.       Width           =   2295
  34.    End
  35.    Begin VB.Label Label1 
  36.       Alignment       =   2  'Center
  37.       BackStyle       =   0  'Transparent
  38.       Caption         =   "Waguih High Tecknology Services"
  39.       BeginProperty Font 
  40.          Name            =   "Snowdrift"
  41.          Size            =   14.25
  42.          Charset         =   0
  43.          Weight          =   700
  44.          Underline       =   0   'False
  45.          Italic          =   0   'False
  46.          Strikethrough   =   0   'False
  47.       EndProperty
  48.       ForeColor       =   &H000040C0&
  49.       Height          =   615
  50.       Left            =   480
  51.       TabIndex        =   0
  52.       Top             =   1320
  53.       Width           =   5055
  54.    End
  55. End
  56. Attribute VB_Name = "frmSplash"
  57. Attribute VB_GlobalNameSpace = False
  58. Attribute VB_Creatable = False
  59. Attribute VB_PredeclaredId = True
  60. Attribute VB_Exposed = False
  61. Option Explicit
  62. Dim counter
  63.  
  64. Private Sub Form_KeyPress(KeyAscii As Integer)
  65.    frmChooseSong.Show
  66.     Unload Me
  67. End Sub
  68.  
  69. Private Sub Form_Load()
  70.     'lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
  71.     lblProductName.Caption = App.Title
  72.     
  73.     counter = 0
  74. End Sub
  75.  
  76. Private Sub Timer1_Timer()
  77. counter = counter + 1
  78. If counter = 3 Then
  79. frmChooseSong.Show
  80. Unload Me
  81. End If
  82. End Sub
  83.  
  84.