home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98a.iso / Wtestowe / SOFTSRC / vtrial15.exe / DATA.1 / AboutBox.frm < prev    next >
Text File  |  1997-03-20  |  3KB  |  117 lines
  1. VERSION 4.00
  2. Begin VB.Form AboutBox 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   2280
  5.    ClientLeft      =   4485
  6.    ClientTop       =   2265
  7.    ClientWidth     =   5715
  8.    ControlBox      =   0   'False
  9.    Height          =   2685
  10.    Left            =   4425
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   2280
  15.    ScaleWidth      =   5715
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   1920
  18.    Width           =   5835
  19.    Begin VB.CommandButton OKCmd 
  20.       Caption         =   "OK"
  21.       Height          =   375
  22.       Left            =   2400
  23.       TabIndex        =   1
  24.       Top             =   1800
  25.       Width           =   1095
  26.    End
  27.    Begin VB.PictureBox Picture1 
  28.       AutoSize        =   -1  'True
  29.       Height          =   510
  30.       Left            =   240
  31.       Picture         =   "AboutBox.frx":0000
  32.       ScaleHeight     =   480
  33.       ScaleWidth      =   480
  34.       TabIndex        =   0
  35.       Top             =   360
  36.       Width           =   510
  37.    End
  38.    Begin VB.Frame Frame1 
  39.       ForeColor       =   &H00FF0000&
  40.       Height          =   975
  41.       Left            =   960
  42.       TabIndex        =   3
  43.       Top             =   120
  44.       Width           =   4575
  45.       Begin VB.Label Label2 
  46.          Alignment       =   2  'Center
  47.          Caption         =   "Version 1.0"
  48.          Height          =   255
  49.          Left            =   120
  50.          TabIndex        =   5
  51.          Top             =   600
  52.          Width           =   4335
  53.       End
  54.       Begin VB.Label Label1 
  55.          Alignment       =   2  'Center
  56.          Appearance      =   0  'Flat
  57.          BackColor       =   &H80000005&
  58.          BackStyle       =   0  'Transparent
  59.          Caption         =   "The LineTyper"
  60.          BeginProperty Font 
  61.             name            =   "MS Sans Serif"
  62.             charset         =   0
  63.             weight          =   700
  64.             size            =   18
  65.             underline       =   0   'False
  66.             italic          =   0   'False
  67.             strikethrough   =   0   'False
  68.          EndProperty
  69.          ForeColor       =   &H80000008&
  70.          Height          =   495
  71.          Left            =   120
  72.          TabIndex        =   4
  73.          Top             =   120
  74.          Width           =   4335
  75.       End
  76.    End
  77.    Begin VB.Label Label3 
  78.       Alignment       =   2  'Center
  79.       Caption         =   "Copyright (c) 1996, 1997 by SoftSource, Bellingham, Wa."
  80.       Height          =   255
  81.       Left            =   240
  82.       TabIndex        =   2
  83.       Top             =   1320
  84.       Width           =   5295
  85.    End
  86. End
  87. Attribute VB_Name = "AboutBox"
  88. Attribute VB_Creatable = False
  89. Attribute VB_Exposed = False
  90. Option Explicit
  91.  
  92. Private Sub Form_Load()
  93. '
  94. '   about box
  95. '
  96.     WindowOnTop hWnd
  97.     
  98.     Covered% = True
  99.  
  100.     AboutBox.Left = (Screen.Width - AboutBox.Width) / 2
  101.     AboutBox.Top = (Screen.Height - AboutBox.Height) / 2
  102.  
  103.     Label1.Caption = AppName$
  104.  
  105. End Sub
  106.  
  107.  
  108. Private Sub OKCmd_Click()
  109. '
  110. '   about box is done
  111. '
  112.     Covered = False
  113.     Unload AboutBox
  114. End Sub
  115.  
  116.  
  117.