home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
tool
/
various
/
vbasm
/
about.frm
next >
Wrap
Text File
|
1994-06-18
|
3KB
|
103 lines
VERSION 2.00
Begin Form frmAbout
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Double
Caption = "About Snooper"
ClientHeight = 3615
ClientLeft = 630
ClientTop = 4470
ClientWidth = 5775
Height = 4020
Left = 570
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3615
ScaleWidth = 5775
Top = 4125
Width = 5895
Begin CommandButton cmdOK
Cancel = -1 'True
Caption = "OK"
Default = -1 'True
Height = 375
Left = 2160
TabIndex = 1
Top = 3120
Width = 1455
End
Begin Line Line1
BorderWidth = 2
X1 = 240
X2 = 5520
Y1 = 840
Y2 = 840
End
Begin Label lblNotice
BackColor = &H00C0C0C0&
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 2055
Left = 240
TabIndex = 2
Top = 960
Width = 5295
End
Begin Label lblCopyright
BackColor = &H00C0C0C0&
Height = 615
Left = 240
TabIndex = 0
Top = 120
Width = 3975
End
Begin Image Image1
Height = 480
Left = 4920
Picture = ABOUT.FRX:0000
Top = 240
Width = 480
End
End
Option Explicit
Sub cmdOK_Click ()
Unload Me
End Sub
Sub Form_Load ()
Dim buffer As String
'Center form on screen
Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
'Compose copyright notice
buffer = "Snooper, Version 2.00" & newLine
buffer = buffer & "Copyright " & Chr$(169) & " 1994 SoftCircuits Programming" & newLine
buffer = buffer & "Redistributed by Permission."
lblCopyright = buffer
'Compose distribution notice
buffer = "This program may be used and distributed freely"
buffer = buffer & " on the condition that it is distributed in full"
buffer = buffer & " and unchanged, and that no fee is charged for"
buffer = buffer & " such use and distribution with the exception of"
buffer = buffer & " reasonable media and shipping charges." & newLine
buffer = buffer & "You may incorporate any of the subroutines"
buffer = buffer & " that are part of this program into your own"
buffer = buffer & " programs and use and distribute such programs"
buffer = buffer & " freely on the condition that your program does"
buffer = buffer & " not duplicate the overall functionality of"
buffer = buffer & " this program." & newLine
buffer = buffer & "This program was created by SoftCircuits Programming,"
buffer = buffer & " P.O. Box 16262, Irvine, CA 92713,"
buffer = buffer & " CompuServe: 72134,264."
lblNotice = buffer
End Sub