home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / about1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-26  |  2.4 KB  |  75 lines
  1. VERSION 4.00
  2. Begin VB.Form frmAbout 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "About"
  6.    ClientHeight    =   4800
  7.    ClientLeft      =   915
  8.    ClientTop       =   2205
  9.    ClientWidth     =   5790
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    BeginProperty Font 
  13.       name            =   "MS Sans Serif"
  14.       charset         =   1
  15.       weight          =   700
  16.       size            =   8.25
  17.       underline       =   0   'False
  18.       italic          =   0   'False
  19.       strikethrough   =   0   'False
  20.    EndProperty
  21.    Height          =   5205
  22.    Left            =   855
  23.    LinkTopic       =   "Form1"
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   4800
  27.    ScaleMode       =   0  'User
  28.    ScaleWidth      =   5784
  29.    Top             =   1860
  30.    Width           =   5910
  31.    Begin VB.CommandButton cmdAbout 
  32.       Cancel          =   -1  'True
  33.       Caption         =   "OK"
  34.       Default         =   -1  'True
  35.       Height          =   612
  36.       Left            =   2160
  37.       TabIndex        =   1
  38.       Top             =   4080
  39.       Width           =   1452
  40.    End
  41.    Begin VB.Frame fraAbout 
  42.       BackColor       =   &H00C0C0C0&
  43.       Height          =   3732
  44.       Left            =   120
  45.       TabIndex        =   0
  46.       Top             =   120
  47.       Width           =   5532
  48.       Begin VB.Label lblAbout 
  49.          BackStyle       =   0  'Transparent
  50.          Height          =   3252
  51.          Left            =   120
  52.          TabIndex        =   2
  53.          Top             =   360
  54.          Width           =   5292
  55.       End
  56.    End
  57. Attribute VB_Name = "frmAbout"
  58. Attribute VB_Creatable = False
  59. Attribute VB_Exposed = False
  60. Private Sub cmdAbout_Click()
  61.     ' This form is loaded as a modal dialog. The Unload statement
  62.     ' releases the form from memory when the user clicks the OK command button.
  63.     Unload frmAbout
  64. End Sub
  65. Private Sub Form_Load()
  66.     ' The form is horizontally and vertically centered when loaded.
  67.     Top = Screen.Height / 2 - Height / 2
  68.     Left = Screen.Width / 2 - Width / 2
  69. End Sub
  70. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  71.     ' The general procedure DoUnLoadPreCheck handles the possible unload options
  72.     ' for all three forms in this sample application.
  73.     DoUnLoadPreCheck UnloadMode
  74. End Sub
  75.