home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_2 / PROMPT / FRMABOUT.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-01-26  |  3.4 KB  |  112 lines
  1. VERSION 2.00
  2. Begin Form frmAbout 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "About Prompt Control"
  5.    ClientHeight    =   3270
  6.    ClientLeft      =   2925
  7.    ClientTop       =   2370
  8.    ClientWidth     =   4710
  9.    Height          =   3735
  10.    KeyPreview      =   -1  'True
  11.    Left            =   2835
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3270
  16.    ScaleWidth      =   4710
  17.    Top             =   1995
  18.    Width           =   4890
  19.    Begin Label Label9 
  20.       Alignment       =   2  'Center
  21.       Caption         =   "71233.1412@compuserve.com (Internet)"
  22.       Height          =   225
  23.       Left            =   0
  24.       TabIndex        =   8
  25.       Top             =   2415
  26.       Width           =   4740
  27.    End
  28.    Begin Label Label8 
  29.       Alignment       =   2  'Center
  30.       Caption         =   "71233,1412 (Compuserve)"
  31.       Height          =   225
  32.       Left            =   0
  33.       TabIndex        =   7
  34.       Top             =   2205
  35.       Width           =   4740
  36.    End
  37.    Begin Label Label7 
  38.       Alignment       =   2  'Center
  39.       Caption         =   "(404)872-2980 (fax)"
  40.       Height          =   225
  41.       Left            =   0
  42.       TabIndex        =   6
  43.       Top             =   1995
  44.       Width           =   4740
  45.    End
  46.    Begin Label Label6 
  47.       Alignment       =   2  'Center
  48.       Caption         =   "(404)874-6938 (voice)"
  49.       Height          =   225
  50.       Left            =   0
  51.       TabIndex        =   5
  52.       Top             =   1785
  53.       Width           =   4740
  54.    End
  55.    Begin Label Label5 
  56.       Alignment       =   2  'Center
  57.       Caption         =   "Atlanta, GA  30306"
  58.       Height          =   225
  59.       Left            =   0
  60.       TabIndex        =   4
  61.       Top             =   1050
  62.       Width           =   4740
  63.    End
  64.    Begin Label Label4 
  65.       Alignment       =   2  'Center
  66.       Caption         =   "946 Glen Arden Way, NE"
  67.       Height          =   225
  68.       Left            =   0
  69.       TabIndex        =   3
  70.       Top             =   840
  71.       Width           =   4740
  72.    End
  73.    Begin Label Label3 
  74.       Alignment       =   2  'Center
  75.       Caption         =   "Andrew S. Dean"
  76.       Height          =   225
  77.       Left            =   0
  78.       TabIndex        =   2
  79.       Top             =   630
  80.       Width           =   4740
  81.    End
  82.    Begin Label Label2 
  83.       Alignment       =   2  'Center
  84.       Caption         =   "The Prompt Control (PROMPT.VBX) was written by"
  85.       Height          =   225
  86.       Left            =   0
  87.       TabIndex        =   1
  88.       Top             =   210
  89.       Width           =   4740
  90.    End
  91.    Begin Label Label1 
  92.       Alignment       =   2  'Center
  93.       Caption         =   "Copyright (C) 1993, 1994 Andrew S. Dean"
  94.       Height          =   225
  95.       Left            =   0
  96.       TabIndex        =   0
  97.       Top             =   3045
  98.       Width           =   4740
  99.    End
  100. 'Copyright (C) Andrew S. Dean 1993
  101. Option Explicit
  102. Sub CenterForm (F As Form)
  103.    ' Center the specified form within the screen
  104.    F.Move (Screen.Width - F.Width) \ 2, (Screen.Height - F.Height) \ 2
  105. End Sub    ' CenterForm()
  106. Sub Form_KeyPress (KeyAscii As Integer)
  107.   'UnloadOnEscape KeyAscii
  108. End Sub
  109. Sub Form_Load ()
  110.   CenterForm frmAbout
  111. End Sub
  112.