home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Learn_Basi1768047102004.psc / tutorials / frmSplash.frm < prev    next >
Text File  |  2004-07-10  |  3KB  |  106 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmSplash 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    ClientHeight    =   2985
  6.    ClientLeft      =   255
  7.    ClientTop       =   1410
  8.    ClientWidth     =   5520
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Icon            =   "frmSplash.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2985
  17.    ScaleWidth      =   5520
  18.    ShowInTaskbar   =   0   'False
  19.    StartUpPosition =   2  'CenterScreen
  20.    Begin MSComctlLib.ProgressBar ProgressBar1 
  21.       Height          =   255
  22.       Left            =   240
  23.       TabIndex        =   2
  24.       Top             =   2640
  25.       Width           =   5175
  26.       _ExtentX        =   9128
  27.       _ExtentY        =   450
  28.       _Version        =   393216
  29.       Appearance      =   1
  30.       Scrolling       =   1
  31.    End
  32.    Begin VB.Timer Timer1 
  33.       Interval        =   50
  34.       Left            =   4800
  35.       Top             =   360
  36.    End
  37.    Begin VB.Frame Frame1 
  38.       BackColor       =   &H00C0C0FF&
  39.       Height          =   2955
  40.       Left            =   30
  41.       TabIndex        =   0
  42.       Top             =   60
  43.       Width           =   5505
  44.       Begin VB.Label Label2 
  45.          BackColor       =   &H00C0C0FF&
  46.          Caption         =   "If my Program helps any one please Comment. "
  47.          BeginProperty Font 
  48.             Name            =   "MS Sans Serif"
  49.             Size            =   9.75
  50.             Charset         =   0
  51.             Weight          =   700
  52.             Underline       =   0   'False
  53.             Italic          =   0   'False
  54.             Strikethrough   =   0   'False
  55.          EndProperty
  56.          Height          =   615
  57.          Left            =   2040
  58.          TabIndex        =   3
  59.          Top             =   840
  60.          Width           =   2895
  61.       End
  62.       Begin VB.Label Label1 
  63.          BackColor       =   &H00C0C0FF&
  64.          Caption         =   "Developed By Pokhraj Das."
  65.          BeginProperty Font 
  66.             Name            =   "MS Sans Serif"
  67.             Size            =   9.75
  68.             Charset         =   0
  69.             Weight          =   700
  70.             Underline       =   0   'False
  71.             Italic          =   0   'False
  72.             Strikethrough   =   0   'False
  73.          EndProperty
  74.          Height          =   375
  75.          Left            =   1680
  76.          TabIndex        =   1
  77.          Top             =   240
  78.          Width           =   2895
  79.       End
  80.       Begin VB.Image imgLogo 
  81.          Height          =   1785
  82.          Left            =   240
  83.          Picture         =   "frmSplash.frx":000C
  84.          Stretch         =   -1  'True
  85.          Top             =   480
  86.          Width           =   1575
  87.       End
  88.    End
  89. End
  90. Attribute VB_Name = "frmSplash"
  91. Attribute VB_GlobalNameSpace = False
  92. Attribute VB_Creatable = False
  93. Attribute VB_PredeclaredId = True
  94. Attribute VB_Exposed = False
  95.  
  96. Option Explicit
  97.  
  98. Private Sub Timer1_Timer()
  99. ProgressBar1.Value = ProgressBar1.Value + 1
  100. If ProgressBar1.Value >= 100 Then
  101.     Unload Me
  102.     Timer1.Enabled = False
  103.     Form2.Show
  104. End If
  105. End Sub
  106.