www.pudn.com > I2C.rar > About.frm
VERSION 5.00
Begin VB.Form About
BorderStyle = 3 'Fixed Dialog
Caption = "About PortIO"
ClientHeight = 1890
ClientLeft = 870
ClientTop = 1380
ClientWidth = 5520
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
PaletteMode = 1 'UseZOrder
ScaleHeight = 1890
ScaleWidth = 5520
ShowInTaskbar = 0 'False
Begin VB.CommandButton OnOK
Caption = "OK"
Default = -1 'True
Height = 372
Left = 4320
TabIndex = 4
Top = 240
Width = 972
End
Begin VB.Image Image1
Height = 480
Left = 240
Picture = "About.frx":0000
Top = 360
Width = 480
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "Web: www.sstnet.com"
Height = 192
Left = 840
TabIndex = 3
Top = 1440
Width = 1548
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "E-mail: sales@sstnet.com"
Height = 192
Left = 840
TabIndex = 2
Top = 1200
Width = 1860
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "Copyright © 1996-1999, Scientific Software Tools, Inc."
Height = 195
Left = 840
TabIndex = 1
Top = 720
Width = 4125
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "DriverLINX Port I/O Demo Version 1.0"
Height = 195
Left = 840
TabIndex = 0
Top = 360
Width = 2895
End
End
Attribute VB_Name = "About"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Left = (Screen.Width - Width) / 2
Top = (Screen.Height - Height) / 2
End Sub
Private Sub OnOK_Click()
Unload Me
End Sub