home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98a.iso / Wtestowe / SOFTSRC / vtrial15.exe / DATA.1 / About.frm < prev    next >
Text File  |  1997-03-20  |  3KB  |  95 lines
  1. VERSION 4.00
  2. Begin VB.Form AboutForm 
  3.    Caption         =   "About..."
  4.    ClientHeight    =   2430
  5.    ClientLeft      =   6405
  6.    ClientTop       =   6810
  7.    ClientWidth     =   5070
  8.    Height          =   2835
  9.    Left            =   6345
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2430
  14.    ScaleWidth      =   5070
  15.    Top             =   6465
  16.    Width           =   5190
  17.    Begin VB.CommandButton DoneCmd 
  18.       Caption         =   "&Done"
  19.       Height          =   375
  20.       Left            =   1920
  21.       TabIndex        =   3
  22.       Top             =   1920
  23.       Width           =   1335
  24.    End
  25.    Begin VB.PictureBox Picture1 
  26.       AutoSize        =   -1  'True
  27.       Height          =   510
  28.       Left            =   360
  29.       Picture         =   "About.frx":0000
  30.       ScaleHeight     =   480
  31.       ScaleWidth      =   480
  32.       TabIndex        =   0
  33.       Top             =   120
  34.       Width           =   510
  35.    End
  36.    Begin VB.Label Label2 
  37.       Alignment       =   2  'Center
  38.       Appearance      =   0  'Flat
  39.       BackColor       =   &H80000005&
  40.       BackStyle       =   0  'Transparent
  41.       Caption         =   "Sample add-on for Virtual Drafter Copyright (c) 1996,1997 by SoftSource, Bellingham, WA."
  42.       BeginProperty Font 
  43.          name            =   "MS Sans Serif"
  44.          charset         =   0
  45.          weight          =   700
  46.          size            =   12
  47.          underline       =   0   'False
  48.          italic          =   0   'False
  49.          strikethrough   =   0   'False
  50.       EndProperty
  51.       ForeColor       =   &H80000008&
  52.       Height          =   975
  53.       Left            =   120
  54.       TabIndex        =   2
  55.       Top             =   840
  56.       Width           =   4815
  57.    End
  58.    Begin VB.Label Label1 
  59.       Alignment       =   2  'Center
  60.       BorderStyle     =   1  'Fixed Single
  61.       Caption         =   "The Zoomer"
  62.       BeginProperty Font 
  63.          name            =   "MS Sans Serif"
  64.          charset         =   0
  65.          weight          =   400
  66.          size            =   18
  67.          underline       =   0   'False
  68.          italic          =   0   'False
  69.          strikethrough   =   0   'False
  70.       EndProperty
  71.       Height          =   495
  72.       Left            =   1200
  73.       TabIndex        =   1
  74.       Top             =   120
  75.       Width           =   3495
  76.    End
  77. End
  78. Attribute VB_Name = "AboutForm"
  79. Attribute VB_Creatable = False
  80. Attribute VB_Exposed = False
  81.  
  82. Private Sub DoneCmd_Click()
  83.     Unload AboutForm
  84. End Sub
  85.  
  86.  
  87. Private Sub Form_Load()
  88.     WindowOnTop hWnd
  89.     
  90.     AboutForm.Left = (Screen.Width - AboutForm.Width) / 2
  91.     AboutForm.Top = (Screen.Height - AboutForm.Height) / 2
  92. End Sub
  93.  
  94.  
  95.