home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / VB40 / SPLASH / SPLASH.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-01-19  |  1.8 KB  |  61 lines
  1. VERSION 4.00
  2. Begin VB.Form frmSplash 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    BorderStyle     =   0  'None
  6.    ClientHeight    =   5040
  7.    ClientLeft      =   750
  8.    ClientTop       =   1335
  9.    ClientWidth     =   7245
  10.    ControlBox      =   0   'False
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   0
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Height          =   5460
  22.    Left            =   690
  23.    LinkTopic       =   "Form1"
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   5040
  27.    ScaleWidth      =   7245
  28.    Top             =   975
  29.    Width           =   7365
  30.    Begin VB.Timer Timer1 
  31.       Left            =   5640
  32.       Top             =   120
  33.    End
  34.    Begin VB.Image imgSplash 
  35.       Height          =   3630
  36.       Left            =   0
  37.       Picture         =   "splash.frx":0000
  38.       Top             =   0
  39.       Width           =   5250
  40.    End
  41. Attribute VB_Name = "frmSplash"
  42. Attribute VB_Creatable = False
  43. Attribute VB_Exposed = False
  44. Private Sub Form_Load()
  45.     'Size form to fit bitmap image
  46.     Width = imgSplash.Width
  47.     Height = imgSplash.Height
  48.     'Center form on screen
  49.     Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
  50.     'Force painting of form
  51.     Visible = True: Refresh
  52.     'Fire up timer (3 second interval)
  53.     Timer1.Interval = 3000
  54. End Sub
  55. Private Sub Timer1_Timer()
  56.     'Interval expired, unload form
  57.     Unload Me
  58.     'Re-enable our main form
  59.     Form1.Visible = True
  60. End Sub
  61.