home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD70226232000.psc / AltStart.frm (.txt) next >
Encoding:
Visual Basic Form  |  2000-06-19  |  1.8 KB  |  60 lines
  1. VERSION 5.00
  2. Begin VB.Form AltStart 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Form3"
  7.    ClientHeight    =   1215
  8.    ClientLeft      =   4080
  9.    ClientTop       =   5370
  10.    ClientWidth     =   9615
  11.    LinkTopic       =   "Form3"
  12.    ScaleHeight     =   1215
  13.    ScaleWidth      =   9615
  14.    ShowInTaskbar   =   0   'False
  15.    Begin VB.Timer Timer1 
  16.       Interval        =   500
  17.       Left            =   1200
  18.       Top             =   120
  19.    End
  20.    Begin Project1.ProgBar ProgBar1 
  21.       Height          =   1215
  22.       Left            =   0
  23.       Top             =   0
  24.       Width           =   9615
  25.       _ExtentX        =   16960
  26.       _ExtentY        =   2143
  27.       BackColour      =   0
  28.       BarStartColour  =   0
  29.       BarEndColour    =   16777215
  30.       BorderStyle     =   0
  31.       FontColour      =   16777215
  32.       Message         =   "LOADING,"
  33.       ShowMessage     =   -1  'True
  34.       ShowPercent     =   -1  'True
  35.       BarStyle        =   0
  36.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  37.          Name            =   "UOP"
  38.          Size            =   20.25
  39.          Charset         =   0
  40.          Weight          =   400
  41.          Underline       =   0   'False
  42.          Italic          =   0   'False
  43.          Strikethrough   =   0   'False
  44.       EndProperty
  45.       BarEndColour    =   16777215
  46.    End
  47. Attribute VB_Name = "AltStart"
  48. Attribute VB_GlobalNameSpace = False
  49. Attribute VB_Creatable = False
  50. Attribute VB_PredeclaredId = True
  51. Attribute VB_Exposed = False
  52. Public Function Begin()
  53.     Form1.Visible = True
  54.     AltStart.Visible = True
  55.     Timer1.Enabled = False
  56. End Function
  57. Private Sub Timer1_Timer()
  58.     Begin
  59. End Sub
  60.