home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mmind / frm_star.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-11-16  |  4.1 KB  |  133 lines
  1. VERSION 4.00
  2. Begin VB.Form frm_Start 
  3.    BorderStyle     =   1  'Fixed Single
  4.    ClientHeight    =   3915
  5.    ClientLeft      =   3135
  6.    ClientTop       =   2400
  7.    ClientWidth     =   5205
  8.    ControlBox      =   0   'False
  9.    Height          =   4380
  10.    Left            =   3075
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3915
  15.    ScaleWidth      =   5205
  16.    Top             =   1995
  17.    Width           =   5325
  18.    Begin VB.CommandButton Command1 
  19.       Caption         =   "Click to Continue"
  20.       BeginProperty Font 
  21.          name            =   "MS Sans Serif"
  22.          charset         =   0
  23.          weight          =   400
  24.          size            =   9.75
  25.          underline       =   0   'False
  26.          italic          =   0   'False
  27.          strikethrough   =   0   'False
  28.       EndProperty
  29.       Height          =   495
  30.       Left            =   1800
  31.       TabIndex        =   4
  32.       Top             =   3360
  33.       Width           =   1935
  34.    End
  35.    Begin VB.TextBox Text1 
  36.       Height          =   1455
  37.       Left            =   240
  38.       MultiLine       =   -1  'True
  39.       ScrollBars      =   2  'Vertical
  40.       TabIndex        =   3
  41.       Text            =   "FRM_STAR.frx":0000
  42.       Top             =   1680
  43.       Width           =   4815
  44.    End
  45.    Begin VB.Timer Timer1 
  46.       Interval        =   1500
  47.       Left            =   4680
  48.       Top             =   120
  49.    End
  50.    Begin VB.Label Label3 
  51.       AutoSize        =   -1  'True
  52.       BackColor       =   &H00FFFFFF&
  53.       BackStyle       =   0  'Transparent
  54.       Caption         =   "mda@kuwait.net"
  55.       BeginProperty Font 
  56.          name            =   "MS Sans Serif"
  57.          charset         =   0
  58.          weight          =   700
  59.          size            =   12
  60.          underline       =   0   'False
  61.          italic          =   0   'False
  62.          strikethrough   =   0   'False
  63.       EndProperty
  64.       ForeColor       =   &H00000000&
  65.       Height          =   300
  66.       Index           =   1
  67.       Left            =   1680
  68.       TabIndex        =   2
  69.       Top             =   1200
  70.       Width           =   2010
  71.    End
  72.    Begin VB.Label Label3 
  73.       AutoSize        =   -1  'True
  74.       BackColor       =   &H00FFFFFF&
  75.       BackStyle       =   0  'Transparent
  76.       Caption         =   "By: Mohammad Al-Abdullah"
  77.       BeginProperty Font 
  78.          name            =   "MS Sans Serif"
  79.          charset         =   0
  80.          weight          =   400
  81.          size            =   13.5
  82.          underline       =   0   'False
  83.          italic          =   0   'False
  84.          strikethrough   =   0   'False
  85.       EndProperty
  86.       Height          =   360
  87.       Index           =   0
  88.       Left            =   960
  89.       TabIndex        =   1
  90.       Top             =   840
  91.       Width           =   3525
  92.    End
  93.    Begin VB.Label Label2 
  94.       AutoSize        =   -1  'True
  95.       BackStyle       =   0  'Transparent
  96.       Caption         =   "Master Mind"
  97.       BeginProperty Font 
  98.          name            =   "MS Sans Serif"
  99.          charset         =   0
  100.          weight          =   700
  101.          size            =   24
  102.          underline       =   -1  'True
  103.          italic          =   0   'False
  104.          strikethrough   =   0   'False
  105.       EndProperty
  106.       Height          =   555
  107.       Left            =   1200
  108.       TabIndex        =   0
  109.       Top             =   120
  110.       Width           =   2805
  111.    End
  112. Attribute VB_Name = "frm_Start"
  113. Attribute VB_Creatable = False
  114. Attribute VB_Exposed = False
  115. Private Sub Command1_Click()
  116.     'Jumps to the Frm_Mmind (Game Form)
  117.     Unload frm_Start
  118.     frm_MMind.Show
  119. End Sub
  120. Private Sub Form_Load()
  121.    'Positions the form in the middle of the screen
  122.     Me.Top = (Screen.Height / 2) - (Me.Height / 2)
  123.     Me.Left = (Screen.Width / 2) - (Me.Width / 2)
  124. End Sub
  125. Private Sub Timer1_Timer()
  126.     'Flashes the command1 control on and Off
  127.     If Command1.Visible = True Then
  128.         Command1.Visible = False
  129.     Else
  130.         Command1.Visible = True
  131.     End If
  132. End Sub
  133.