home *** CD-ROM | disk | FTP | other *** search
- VERSION 4.00
- Begin VB.Form Splash
- BorderStyle = 0 'None
- ClientHeight = 1455
- ClientLeft = 2475
- ClientTop = 4470
- ClientWidth = 5205
- ControlBox = 0 'False
- Height = 1860
- Left = 2415
- LinkTopic = "Form2"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 1455
- ScaleWidth = 5205
- ShowInTaskbar = 0 'False
- Top = 4125
- Width = 5325
- Begin VB.Label Label1
- Alignment = 2 'Center
- Appearance = 0 'Flat
- BackColor = &H00FF0000&
- BorderStyle = 1 'Fixed Single
- Caption = "I was a line man for Virtual Drafter..."
- BeginProperty Font
- name = "MS Sans Serif"
- charset = 0
- weight = 700
- size = 24
- underline = 0 'False
- italic = -1 'True
- strikethrough = 0 'False
- EndProperty
- ForeColor = &H0000FFFF&
- Height = 1215
- Left = 120
- TabIndex = 0
- Top = 120
- Width = 4935
- End
- Attribute VB_Name = "Splash"
- Attribute VB_Creatable = False
- Attribute VB_Exposed = False
- Option Explicit
- Private Sub Form_Load()
- ' center the form on the screen
- WindowOnTop hWnd
- Splash.Left = ((Screen.Width - Splash.Width) / 2)
- Splash.Top = ((Screen.Height - Splash.Height) / 2)
- End Sub
-