home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
acces2vb
/
frmabout.frm
< prev
next >
Wrap
Text File
|
1994-05-09
|
3KB
|
121 lines
VERSION 2.00
Begin Form frmAbout
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Double
Caption = "About Jet 2.0 VB3 Demo"
ClientHeight = 3165
ClientLeft = 2715
ClientTop = 2205
ClientWidth = 5370
Height = 3570
Left = 2655
LinkTopic = "Form1"
ScaleHeight = 3165
ScaleWidth = 5370
Top = 1860
Width = 5490
Begin CommandButton Command1
Caption = "&OK"
Height = 350
Left = 2295
TabIndex = 0
Top = 2595
Width = 765
End
Begin Line Line8
BorderColor = &H00808080&
X1 = 2280
X2 = 2280
Y1 = 2580
Y2 = 2940
End
Begin Line Line7
BorderColor = &H00808080&
X1 = 3060
X2 = 2280
Y1 = 2580
Y2 = 2580
End
Begin Line Line6
BorderColor = &H00FFFFFF&
X1 = 3060
X2 = 2280
Y1 = 2700
Y2 = 2700
End
Begin Line Line5
BorderColor = &H00FFFFFF&
X1 = 3060
X2 = 3060
Y1 = 2580
Y2 = 2940
End
Begin Line Line4
BorderColor = &H00FFFFFF&
X1 = 5040
X2 = 5040
Y1 = 120
Y2 = 2400
End
Begin Line Line3
BorderColor = &H00FFFFFF&
X1 = 5040
X2 = 240
Y1 = 2400
Y2 = 2400
End
Begin Line Line2
BorderColor = &H00808080&
X1 = 5040
X2 = 240
Y1 = 120
Y2 = 120
End
Begin Line Line1
BorderColor = &H00808080&
X1 = 240
X2 = 240
Y1 = 120
Y2 = 2400
End
Begin Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Times New Roman"
FontSize = 13.5
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1875
Left = 540
TabIndex = 1
Top = 420
Width = 4275
End
End
Option Explicit
Sub Command1_Click ()
Unload Me
End Sub
Sub Form_Load ()
Dim crlf As String
crlf = Chr$(13) & Chr$(10)
Me.Top = (screen.Height - Me.Height) / 2
Me.Left = (screen.Width - Me.Width) / 2
label1 = "by Jim Ferguson" & crlf
label1 = label1 & "FMS, Inc." & crlf
label1 = label1 & "Makers of Total Access Analyzer" & crlf
label1 = label1 & "and Total Access Speller" & crlf
label1 = label1 & "phone: 703-356-4700" & crlf
label1 = label1 & "CIS ID: 71477,2345"
End Sub