home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / ACCES2VB / FRMABOUT.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-05-10  |  3.3 KB  |  112 lines
  1. VERSION 2.00
  2. Begin Form frmAbout 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "About Jet 2.0 VB3 Demo"
  6.    ClientHeight    =   3165
  7.    ClientLeft      =   2715
  8.    ClientTop       =   2205
  9.    ClientWidth     =   5370
  10.    Height          =   3570
  11.    Left            =   2655
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   3165
  14.    ScaleWidth      =   5370
  15.    Top             =   1860
  16.    Width           =   5490
  17.    Begin CommandButton Command1 
  18.       Caption         =   "&OK"
  19.       Height          =   350
  20.       Left            =   2295
  21.       TabIndex        =   0
  22.       Top             =   2595
  23.       Width           =   765
  24.    End
  25.    Begin Line Line8 
  26.       BorderColor     =   &H00808080&
  27.       X1              =   2280
  28.       X2              =   2280
  29.       Y1              =   2580
  30.       Y2              =   2940
  31.    End
  32.    Begin Line Line7 
  33.       BorderColor     =   &H00808080&
  34.       X1              =   3060
  35.       X2              =   2280
  36.       Y1              =   2580
  37.       Y2              =   2580
  38.    End
  39.    Begin Line Line6 
  40.       BorderColor     =   &H00FFFFFF&
  41.       X1              =   3060
  42.       X2              =   2280
  43.       Y1              =   2700
  44.       Y2              =   2700
  45.    End
  46.    Begin Line Line5 
  47.       BorderColor     =   &H00FFFFFF&
  48.       X1              =   3060
  49.       X2              =   3060
  50.       Y1              =   2580
  51.       Y2              =   2940
  52.    End
  53.    Begin Line Line4 
  54.       BorderColor     =   &H00FFFFFF&
  55.       X1              =   5040
  56.       X2              =   5040
  57.       Y1              =   120
  58.       Y2              =   2400
  59.    End
  60.    Begin Line Line3 
  61.       BorderColor     =   &H00FFFFFF&
  62.       X1              =   5040
  63.       X2              =   240
  64.       Y1              =   2400
  65.       Y2              =   2400
  66.    End
  67.    Begin Line Line2 
  68.       BorderColor     =   &H00808080&
  69.       X1              =   5040
  70.       X2              =   240
  71.       Y1              =   120
  72.       Y2              =   120
  73.    End
  74.    Begin Line Line1 
  75.       BorderColor     =   &H00808080&
  76.       X1              =   240
  77.       X2              =   240
  78.       Y1              =   120
  79.       Y2              =   2400
  80.    End
  81.    Begin Label Label1 
  82.       Alignment       =   2  'Center
  83.       BackStyle       =   0  'Transparent
  84.       FontBold        =   0   'False
  85.       FontItalic      =   0   'False
  86.       FontName        =   "Times New Roman"
  87.       FontSize        =   13.5
  88.       FontStrikethru  =   0   'False
  89.       FontUnderline   =   0   'False
  90.       Height          =   1875
  91.       Left            =   540
  92.       TabIndex        =   1
  93.       Top             =   420
  94.       Width           =   4275
  95.    End
  96. Option Explicit
  97. Sub Command1_Click ()
  98.     Unload Me
  99. End Sub
  100. Sub Form_Load ()
  101.     Dim crlf As String
  102.     crlf = Chr$(13) & Chr$(10)
  103.     Me.Top = (screen.Height - Me.Height) / 2
  104.     Me.Left = (screen.Width - Me.Width) / 2
  105.     label1 = "by Jim Ferguson" & crlf
  106.     label1 = label1 & "FMS, Inc." & crlf
  107.     label1 = label1 & "Makers of Total Access Analyzer" & crlf
  108.     label1 = label1 & "and Total Access Speller" & crlf
  109.     label1 = label1 & "phone: 703-356-4700" & crlf
  110.     label1 = label1 & "CIS ID: 71477,2345"
  111. End Sub
  112.