home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98a.iso / Wtestowe / SOFTSRC / vtrial15.exe / DATA.1 / Splash.frm < prev    next >
Text File  |  1997-03-20  |  2KB  |  58 lines
  1. VERSION 4.00
  2. Begin VB.Form Splash 
  3.    BorderStyle     =   0  'None
  4.    ClientHeight    =   1455
  5.    ClientLeft      =   2475
  6.    ClientTop       =   4470
  7.    ClientWidth     =   5205
  8.    ControlBox      =   0   'False
  9.    Height          =   1860
  10.    Left            =   2415
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   1455
  15.    ScaleWidth      =   5205
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   4125
  18.    Width           =   5325
  19.    Begin VB.Label Label1 
  20.       Alignment       =   2  'Center
  21.       Appearance      =   0  'Flat
  22.       BackColor       =   &H00FF0000&
  23.       BorderStyle     =   1  'Fixed Single
  24.       Caption         =   "I was a line man for Virtual Drafter..."
  25.       BeginProperty Font 
  26.          name            =   "MS Sans Serif"
  27.          charset         =   0
  28.          weight          =   700
  29.          size            =   24
  30.          underline       =   0   'False
  31.          italic          =   -1  'True
  32.          strikethrough   =   0   'False
  33.       EndProperty
  34.       ForeColor       =   &H0000FFFF&
  35.       Height          =   1215
  36.       Left            =   120
  37.       TabIndex        =   0
  38.       Top             =   120
  39.       Width           =   4935
  40.    End
  41. End
  42. Attribute VB_Name = "Splash"
  43. Attribute VB_Creatable = False
  44. Attribute VB_Exposed = False
  45. Option Explicit
  46.  
  47. Private Sub Form_Load()
  48. '
  49. '   center the form on the screen
  50. '
  51.     WindowOnTop hWnd
  52.     
  53.     Splash.Left = ((Screen.Width - Splash.Width) / 2)
  54.     Splash.Top = ((Screen.Height - Splash.Height) / 2)
  55. End Sub
  56.  
  57.  
  58.