home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PROG_BAS
/
PROMPT.ZIP
/
FRMABOUT.FRM
< prev
next >
Wrap
Text File
|
1994-01-26
|
3KB
|
117 lines
VERSION 2.00
Begin Form frmAbout
BorderStyle = 3 'Fixed Double
Caption = "About Prompt Control"
ClientHeight = 3270
ClientLeft = 2925
ClientTop = 2370
ClientWidth = 4710
Height = 3735
KeyPreview = -1 'True
Left = 2835
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3270
ScaleWidth = 4710
Top = 1995
Width = 4890
Begin Label Label9
Alignment = 2 'Center
Caption = "71233.1412@compuserve.com (Internet)"
Height = 225
Left = 0
TabIndex = 8
Top = 2415
Width = 4740
End
Begin Label Label8
Alignment = 2 'Center
Caption = "71233,1412 (Compuserve)"
Height = 225
Left = 0
TabIndex = 7
Top = 2205
Width = 4740
End
Begin Label Label7
Alignment = 2 'Center
Caption = "(404)872-2980 (fax)"
Height = 225
Left = 0
TabIndex = 6
Top = 1995
Width = 4740
End
Begin Label Label6
Alignment = 2 'Center
Caption = "(404)874-6938 (voice)"
Height = 225
Left = 0
TabIndex = 5
Top = 1785
Width = 4740
End
Begin Label Label5
Alignment = 2 'Center
Caption = "Atlanta, GA 30306"
Height = 225
Left = 0
TabIndex = 4
Top = 1050
Width = 4740
End
Begin Label Label4
Alignment = 2 'Center
Caption = "946 Glen Arden Way, NE"
Height = 225
Left = 0
TabIndex = 3
Top = 840
Width = 4740
End
Begin Label Label3
Alignment = 2 'Center
Caption = "Andrew S. Dean"
Height = 225
Left = 0
TabIndex = 2
Top = 630
Width = 4740
End
Begin Label Label2
Alignment = 2 'Center
Caption = "The Prompt Control (PROMPT.VBX) was written by"
Height = 225
Left = 0
TabIndex = 1
Top = 210
Width = 4740
End
Begin Label Label1
Alignment = 2 'Center
Caption = "Copyright (C) 1993, 1994 Andrew S. Dean"
Height = 225
Left = 0
TabIndex = 0
Top = 3045
Width = 4740
End
End
'Copyright (C) Andrew S. Dean 1993
Option Explicit
Sub CenterForm (F As Form)
' Center the specified form within the screen
F.Move (Screen.Width - F.Width) \ 2, (Screen.Height - F.Height) \ 2
End Sub ' CenterForm()
Sub Form_KeyPress (KeyAscii As Integer)
'UnloadOnEscape KeyAscii
End Sub
Sub Form_Load ()
CenterForm frmAbout
End Sub