home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 January / pcwk_01_1999.iso / Wtestowe / Vistdstd / Install / Data.Z / About.FRM (.txt) < prev    next >
Visual Basic Form  |  1996-09-04  |  6KB  |  174 lines
  1. VERSION 4.00
  2. Begin VB.Form frmAboutDialog 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "About Visio Inventory"
  7.    ClientHeight    =   2190
  8.    ClientLeft      =   1710
  9.    ClientTop       =   2070
  10.    ClientWidth     =   5475
  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          =   2595
  22.    Left            =   1650
  23.    LinkTopic       =   "Form3"
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   2190
  27.    ScaleWidth      =   5475
  28.    Top             =   1725
  29.    Width           =   5595
  30.    Begin VB.CommandButton IDOK 
  31.       Appearance      =   0  'Flat
  32.       BackColor       =   &H80000005&
  33.       Caption         =   "&OK"
  34.       Height          =   375
  35.       Left            =   4140
  36.       TabIndex        =   8
  37.       Top             =   180
  38.       Width           =   1215
  39.    End
  40.    Begin VB.PictureBox Picture1 
  41.       Appearance      =   0  'Flat
  42.       AutoSize        =   -1  'True
  43.       BackColor       =   &H80000005&
  44.       ForeColor       =   &H80000008&
  45.       Height          =   510
  46.       Left            =   120
  47.       Picture         =   "ABOUT.frx":0000
  48.       ScaleHeight     =   0.508
  49.       ScaleMode       =   0  'User
  50.       ScaleWidth      =   0.451
  51.       TabIndex        =   5
  52.       Top             =   120
  53.       Width           =   510
  54.    End
  55.    Begin VB.Label Label8 
  56.       Alignment       =   2  'Center
  57.       Appearance      =   0  'Flat
  58.       BackColor       =   &H80000005&
  59.       Caption         =   "By Troy Sandal"
  60.       ForeColor       =   &H80000008&
  61.       Height          =   255
  62.       Left            =   1020
  63.       TabIndex        =   9
  64.       Top             =   720
  65.       Width           =   2895
  66.    End
  67.    Begin VB.Label txtUser 
  68.       Appearance      =   0  'Flat
  69.       BackColor       =   &H80000005&
  70.       ForeColor       =   &H80000008&
  71.       Height          =   255
  72.       Left            =   1680
  73.       TabIndex        =   7
  74.       Top             =   1560
  75.       Width           =   3615
  76.    End
  77.    Begin VB.Label txtCompany 
  78.       Appearance      =   0  'Flat
  79.       BackColor       =   &H80000005&
  80.       ForeColor       =   &H80000008&
  81.       Height          =   255
  82.       Left            =   1680
  83.       TabIndex        =   6
  84.       Top             =   1800
  85.       Width           =   3615
  86.    End
  87.    Begin VB.Line Line1 
  88.       X1              =   600
  89.       X2              =   5280
  90.       Y1              =   1440
  91.       Y2              =   1440
  92.    End
  93.    Begin VB.Label Label5 
  94.       Alignment       =   1  'Right Justify
  95.       Appearance      =   0  'Flat
  96.       BackColor       =   &H80000005&
  97.       Caption         =   "Company:"
  98.       ForeColor       =   &H80000008&
  99.       Height          =   255
  100.       Left            =   600
  101.       TabIndex        =   4
  102.       Top             =   1800
  103.       Width           =   975
  104.    End
  105.    Begin VB.Label Label4 
  106.       Alignment       =   1  'Right Justify
  107.       Appearance      =   0  'Flat
  108.       BackColor       =   &H80000005&
  109.       Caption         =   "User:"
  110.       ForeColor       =   &H80000008&
  111.       Height          =   255
  112.       Left            =   600
  113.       TabIndex        =   3
  114.       Top             =   1560
  115.       Width           =   975
  116.    End
  117.    Begin VB.Label Label3 
  118.       Appearance      =   0  'Flat
  119.       BackColor       =   &H80000005&
  120.       Caption         =   "This product is licensed to:"
  121.       ForeColor       =   &H80000008&
  122.       Height          =   255
  123.       Left            =   600
  124.       TabIndex        =   2
  125.       Top             =   1200
  126.       Width           =   2655
  127.    End
  128.    Begin VB.Label Label2 
  129.       Alignment       =   2  'Center
  130.       Appearance      =   0  'Flat
  131.       BackColor       =   &H80000005&
  132.       Caption         =   "
  133.  1993 Shapeware Corporation"
  134.       ForeColor       =   &H80000008&
  135.       Height          =   255
  136.       Left            =   1020
  137.       TabIndex        =   1
  138.       Top             =   480
  139.       Width           =   2895
  140.    End
  141.    Begin VB.Label txtTitle 
  142.       Alignment       =   2  'Center
  143.       Appearance      =   0  'Flat
  144.       AutoSize        =   -1  'True
  145.       BackColor       =   &H80000005&
  146.       Caption         =   "Visio Inventory Add-On"
  147.       ForeColor       =   &H80000008&
  148.       Height          =   195
  149.       Left            =   1470
  150.       TabIndex        =   0
  151.       Top             =   240
  152.       Width           =   1995
  153.    End
  154. Attribute VB_Name = "frmAboutDialog"
  155. Attribute VB_Creatable = False
  156. Attribute VB_Exposed = False
  157. ' -----------------------------------------------------------------------------
  158. ' Copyright (C) 1993-1996 Visio Corporation. All rights reserved.
  159. ' You have a royalty-free right to use, modify, reproduce and distribute
  160. ' the Sample Application Files (and/or any modified version) in any way
  161. ' you find useful, provided that you agree that Visio has no warranty,
  162. ' obligations or liability for any Sample Application Files.
  163. ' -----------------------------------------------------------------------------
  164. Option Explicit
  165. Private Sub Form_Load()
  166.   txtTitle.Caption = txtTitle.Caption & " " & G_VERSION
  167. End Sub
  168. '------------------------------------
  169. '--- IDOK_CLick ---------------------
  170. '--   When the user presses OK we simply unload the form.
  171. Private Sub IDOK_Click()
  172.   Unload frmAboutDialog
  173. End Sub
  174.