home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l405 / 1.ddi / ABOUT.FR_ / ABOUT.bin (.txt)
Encoding:
Visual Basic Form  |  1993-04-28  |  2.0 KB  |  63 lines
  1. VERSION 2.00
  2. Begin Form frmAbout 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "About"
  6.    ClientHeight    =   4800
  7.    ClientLeft      =   912
  8.    ClientTop       =   2208
  9.    ClientWidth     =   5784
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    Height          =   5220
  13.    Left            =   864
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   4800
  18.    ScaleMode       =   0  'User
  19.    ScaleWidth      =   5784
  20.    Top             =   1836
  21.    Width           =   5880
  22.    Begin CommandButton cmdAbout 
  23.       Cancel          =   -1  'True
  24.       Caption         =   "OK"
  25.       Default         =   -1  'True
  26.       Height          =   612
  27.       Left            =   2160
  28.       TabIndex        =   1
  29.       Top             =   4080
  30.       Width           =   1452
  31.    End
  32.    Begin Frame fraAbout 
  33.       BackColor       =   &H00C0C0C0&
  34.       Height          =   3732
  35.       Left            =   120
  36.       TabIndex        =   0
  37.       Top             =   120
  38.       Width           =   5532
  39.       Begin Label lblAbout 
  40.          BackStyle       =   0  'Transparent
  41.          Height          =   3252
  42.          Left            =   120
  43.          TabIndex        =   2
  44.          Top             =   360
  45.          Width           =   5292
  46.       End
  47.    End
  48. Sub cmdAbout_Click ()
  49. ' This form is loaded as a modal dialog. We use the Unload statement here to
  50. ' unload the form from memory when the user clicks the OK command button.
  51.     Unload frmAbout
  52. End Sub
  53. Sub Form_Load ()
  54. ' The form is horizontally and vertically centered when loaded.
  55.     Top = Screen.Height / 2 - Height / 2
  56.     Left = Screen.Width / 2 - Width / 2
  57. End Sub
  58. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  59. ' The general procedure DoUnLoadPreCheck handles the possible unload options
  60. ' for all three forms in this sample application.
  61.     DoUnLoadPreCheck UnloadMode
  62. End Sub
  63.