home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / truegrid / disk1 / dbtable / dbtable.$ / FORM2.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-02-17  |  1.7 KB  |  59 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    Caption         =   "TrueGrid"
  4.    ClientHeight    =   1755
  5.    ClientLeft      =   1830
  6.    ClientTop       =   2310
  7.    ClientWidth     =   4800
  8.    Height          =   2160
  9.    Left            =   1770
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   1755
  14.    ScaleWidth      =   4800
  15.    Top             =   1965
  16.    Width           =   4920
  17.    Begin CommandButton Command1 
  18.       Caption         =   "OK"
  19.       Default         =   -1  'True
  20.       Height          =   405
  21.       Left            =   1800
  22.       TabIndex        =   1
  23.       Top             =   1200
  24.       Width           =   885
  25.    End
  26.    Begin PictureBox Picture1 
  27.       BorderStyle     =   0  'None
  28.       Height          =   615
  29.       Left            =   240
  30.       Picture         =   FORM2.FRX:0000
  31.       ScaleHeight     =   615
  32.       ScaleWidth      =   645
  33.       TabIndex        =   0
  34.       Top             =   150
  35.       Width           =   645
  36.    End
  37.    Begin Label Label2 
  38.       Caption         =   "Copyright (C) 1993  Apex Software Corporation"
  39.       Height          =   255
  40.       Left            =   390
  41.       TabIndex        =   3
  42.       Top             =   780
  43.       Width           =   3975
  44.    End
  45.    Begin Label Label1 
  46.       Caption         =   "Apex TrueGrid dBTable Program"
  47.       Height          =   255
  48.       Left            =   930
  49.       TabIndex        =   2
  50.       Top             =   360
  51.       Width           =   2775
  52.    End
  53. Sub Command1_Click ()
  54.     Unload Form2
  55. End Sub
  56. Sub Form_Load ()
  57.     Form2.Caption = "TrueGrid Version " + Form1.FieldTable.Version
  58. End Sub
  59.