home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Wompus_-_B175460672004.psc / About.frm < prev    next >
Text File  |  2004-06-03  |  3KB  |  112 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   3585
  6.    ClientLeft      =   4995
  7.    ClientTop       =   2715
  8.    ClientWidth     =   6855
  9.    ControlBox      =   0   'False
  10.    Icon            =   "About.frx":0000
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    PaletteMode     =   1  'UseZOrder
  15.    ScaleHeight     =   3585
  16.    ScaleWidth      =   6855
  17.    ShowInTaskbar   =   0   'False
  18.    Begin VB.CommandButton Command1 
  19.       Caption         =   "OK"
  20.       BeginProperty Font 
  21.          Name            =   "MS Sans Serif"
  22.          Size            =   8.25
  23.          Charset         =   0
  24.          Weight          =   700
  25.          Underline       =   0   'False
  26.          Italic          =   0   'False
  27.          Strikethrough   =   0   'False
  28.       EndProperty
  29.       Height          =   360
  30.       Left            =   2925
  31.       TabIndex        =   1
  32.       Top             =   5655
  33.       Width           =   885
  34.    End
  35.    Begin VB.Label Label1 
  36.       Alignment       =   2  'Center
  37.       BackColor       =   &H00808080&
  38.       BackStyle       =   0  'Transparent
  39.       Caption         =   "Click Mouse or Press Enter Key to Begin Play"
  40.       BeginProperty Font 
  41.          Name            =   "MS Sans Serif"
  42.          Size            =   8.25
  43.          Charset         =   0
  44.          Weight          =   700
  45.          Underline       =   0   'False
  46.          Italic          =   0   'False
  47.          Strikethrough   =   0   'False
  48.       EndProperty
  49.       ForeColor       =   &H000000FF&
  50.       Height          =   225
  51.       Left            =   0
  52.       TabIndex        =   0
  53.       Top             =   3120
  54.       Width           =   6705
  55.    End
  56.    Begin VB.Image Image1 
  57.       Height          =   2550
  58.       Left            =   180
  59.       Picture         =   "About.frx":030A
  60.       Top             =   420
  61.       Width           =   6345
  62.    End
  63.    Begin VB.Shape Shape1 
  64.       BorderColor     =   &H000000FF&
  65.       BorderWidth     =   6
  66.       FillColor       =   &H00FFFFFF&
  67.       FillStyle       =   0  'Solid
  68.       Height          =   3495
  69.       Left            =   45
  70.       Top             =   60
  71.       Width           =   6765
  72.    End
  73. End
  74. Attribute VB_Name = "Form2"
  75. Attribute VB_GlobalNameSpace = False
  76. Attribute VB_Creatable = False
  77. Attribute VB_PredeclaredId = True
  78. Attribute VB_Exposed = False
  79.  
  80. Private Sub Form_Load()
  81.  
  82. '   Center the form on screen
  83.     Form2.Top = 0.5 * (Screen.Height - Form2.Height)
  84.     Form2.Left = 0.5 * (Screen.Width - Form2.Width)
  85.  
  86. End Sub
  87.  
  88. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  89.  
  90.     Unload Me
  91.        
  92. End Sub
  93.  
  94. Private Sub Image1_Click()
  95.  
  96.     Unload Me
  97.     
  98. End Sub
  99.  
  100. Private Sub Label1_Click()
  101.  
  102.     Unload Me
  103.     
  104. End Sub
  105.  
  106. Private Sub Command1_Click()
  107.  
  108.     Unload Me
  109.     
  110. End Sub
  111.  
  112.