home *** CD-ROM | disk | FTP | other *** search
/ QuickTime 2.0 Developer Kit / QuickTime 2.0 Developer Kit.iso / pc / windows / qtw_201 / setup / samples / vbrowser / title.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-12-19  |  1.7 KB  |  54 lines
  1. VERSION 2.00
  2. Begin Form Title 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "VBrowser"
  6.    Height          =   3525
  7.    Left            =   1200
  8.    LinkTopic       =   "Form2"
  9.    MaxButton       =   0   'False
  10.    MinButton       =   0   'False
  11.    ScaleHeight     =   3120
  12.    ScaleWidth      =   4875
  13.    Top             =   1425
  14.    Width           =   4995
  15.    Begin CommandButton cmdOK 
  16.       Caption         =   "OK"
  17.       Default         =   -1  'True
  18.       Height          =   435
  19.       Left            =   1860
  20.       TabIndex        =   1
  21.       Top             =   2340
  22.       Visible         =   0   'False
  23.       Width           =   1215
  24.    End
  25.    Begin Label lblMessage 
  26.       Alignment       =   2  'Center
  27.       BackStyle       =   0  'Transparent
  28.       Caption         =   "Initializing VBrowser ..."
  29.       FontBold        =   -1  'True
  30.       FontItalic      =   0   'False
  31.       FontName        =   "MS Sans Serif"
  32.       FontSize        =   9.75
  33.       FontStrikethru  =   0   'False
  34.       FontUnderline   =   0   'False
  35.       Height          =   315
  36.       Left            =   1080
  37.       TabIndex        =   0
  38.       Top             =   1140
  39.       Width           =   2475
  40.    End
  41. Option Explicit
  42. Sub cmdOK_Click ()
  43. '   When the OK button is clicked, end the program
  44.     End
  45. End Sub
  46. Sub Form_Load ()
  47. '   Center the form on the screen; center the label containing the message
  48. '   onto the form
  49.     Title.Left = (Screen.Width - Title.Width) / 2
  50.     Title.Top = (Screen.Height - Title.Height) / 2
  51.     lblMessage.Left = (Title.ScaleWidth - lblMessage.Width) / 2
  52.     lblMessage.Top = (Title.ScaleHeight - lblMessage.Height) / 2
  53. End Sub
  54.