home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
On Hand
/
On_Hand_From_Softbank_1994_Release_2_Disc_2_1994.iso
/
00202
/
s
/
disk1
/
about.fr_
/
about.bin
Wrap
Text File
|
1993-04-28
|
2KB
|
68 lines
VERSION 2.00
Begin Form frmAbout
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "About"
ClientHeight = 4800
ClientLeft = 912
ClientTop = 2208
ClientWidth = 5784
ClipControls = 0 'False
ControlBox = 0 'False
Height = 5220
Left = 864
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4800
ScaleMode = 0 'User
ScaleWidth = 5784
Top = 1836
Width = 5880
Begin CommandButton cmdAbout
Cancel = -1 'True
Caption = "OK"
Default = -1 'True
Height = 612
Left = 2160
TabIndex = 1
Top = 4080
Width = 1452
End
Begin Frame fraAbout
BackColor = &H00C0C0C0&
Height = 3732
Left = 120
TabIndex = 0
Top = 120
Width = 5532
Begin Label lblAbout
BackStyle = 0 'Transparent
Height = 3252
Left = 120
TabIndex = 2
Top = 360
Width = 5292
End
End
End
Sub cmdAbout_Click ()
' This form is loaded as a modal dialog. We use the Unload statement here to
' unload the form from memory when the user clicks the OK command button.
Unload frmAbout
End Sub
Sub Form_Load ()
' The form is horizontally and vertically centered when loaded.
Top = Screen.Height / 2 - Height / 2
Left = Screen.Width / 2 - Width / 2
End Sub
Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
' The general procedure DoUnLoadPreCheck handles the possible unload options
' for all three forms in this sample application.
DoUnLoadPreCheck UnloadMode
End Sub