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
Text File  |  1993-04-28  |  2KB  |  68 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. End
  49.  
  50. Sub cmdAbout_Click ()
  51. ' This form is loaded as a modal dialog. We use the Unload statement here to
  52. ' unload the form from memory when the user clicks the OK command button.
  53.     Unload frmAbout
  54. End Sub
  55.  
  56. Sub Form_Load ()
  57. ' The form is horizontally and vertically centered when loaded.
  58.     Top = Screen.Height / 2 - Height / 2
  59.     Left = Screen.Width / 2 - Width / 2
  60. End Sub
  61.  
  62. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  63. ' The general procedure DoUnLoadPreCheck handles the possible unload options
  64. ' for all three forms in this sample application.
  65.     DoUnLoadPreCheck UnloadMode
  66. End Sub
  67.  
  68.