home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Oldplanes20302111112006.psc / Oldplanes / GameOver.frm < prev    next >
Text File  |  2006-11-11  |  8KB  |  268 lines
  1. VERSION 5.00
  2. Begin VB.Form GameOver 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Game Over"
  5.    ClientHeight    =   7140
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   9150
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   476
  11.    ScaleMode       =   3  'Pixel
  12.    ScaleWidth      =   610
  13.    ShowInTaskbar   =   0   'False
  14.    StartUpPosition =   2  'CenterScreen
  15.    Begin VB.CommandButton Command1 
  16.       Caption         =   "Return to Main Menu"
  17.       Height          =   375
  18.       Left            =   120
  19.       TabIndex        =   19
  20.       Top             =   6720
  21.       Width           =   1695
  22.    End
  23.    Begin VB.PictureBox Picture4 
  24.       AutoSize        =   -1  'True
  25.       BorderStyle     =   0  'None
  26.       Height          =   960
  27.       Left            =   8040
  28.       Picture         =   "GameOver.frx":0000
  29.       ScaleHeight     =   960
  30.       ScaleWidth      =   960
  31.       TabIndex        =   10
  32.       Top             =   5400
  33.       Width           =   960
  34.    End
  35.    Begin VB.PictureBox Picture3 
  36.       AutoSize        =   -1  'True
  37.       BorderStyle     =   0  'None
  38.       Height          =   960
  39.       Left            =   8040
  40.       Picture         =   "GameOver.frx":3042
  41.       ScaleHeight     =   960
  42.       ScaleWidth      =   960
  43.       TabIndex        =   9
  44.       Top             =   3240
  45.       Width           =   960
  46.    End
  47.    Begin VB.PictureBox Picture2 
  48.       AutoSize        =   -1  'True
  49.       BorderStyle     =   0  'None
  50.       Height          =   960
  51.       Left            =   8040
  52.       Picture         =   "GameOver.frx":6084
  53.       ScaleHeight     =   960
  54.       ScaleWidth      =   960
  55.       TabIndex        =   8
  56.       Top             =   4320
  57.       Width           =   960
  58.    End
  59.    Begin VB.PictureBox Picture1 
  60.       AutoSize        =   -1  'True
  61.       BorderStyle     =   0  'None
  62.       Height          =   960
  63.       Left            =   8040
  64.       Picture         =   "GameOver.frx":90C6
  65.       ScaleHeight     =   960
  66.       ScaleWidth      =   960
  67.       TabIndex        =   7
  68.       Top             =   2160
  69.       Width           =   960
  70.    End
  71.    Begin VB.PictureBox Veteran 
  72.       AutoSize        =   -1  'True
  73.       BorderStyle     =   0  'None
  74.       Height          =   960
  75.       Left            =   240
  76.       Picture         =   "GameOver.frx":C108
  77.       ScaleHeight     =   960
  78.       ScaleWidth      =   960
  79.       TabIndex        =   4
  80.       Top             =   5520
  81.       Width           =   960
  82.    End
  83.    Begin VB.PictureBox Silver 
  84.       AutoSize        =   -1  'True
  85.       BorderStyle     =   0  'None
  86.       Height          =   960
  87.       Left            =   240
  88.       Picture         =   "GameOver.frx":F14A
  89.       ScaleHeight     =   960
  90.       ScaleWidth      =   960
  91.       TabIndex        =   3
  92.       Top             =   3360
  93.       Width           =   960
  94.    End
  95.    Begin VB.PictureBox Bronze 
  96.       AutoSize        =   -1  'True
  97.       BorderStyle     =   0  'None
  98.       Height          =   960
  99.       Left            =   240
  100.       Picture         =   "GameOver.frx":1218C
  101.       ScaleHeight     =   960
  102.       ScaleWidth      =   960
  103.       TabIndex        =   2
  104.       Top             =   4440
  105.       Width           =   960
  106.    End
  107.    Begin VB.PictureBox Gold 
  108.       AutoSize        =   -1  'True
  109.       BorderStyle     =   0  'None
  110.       Height          =   960
  111.       Left            =   240
  112.       Picture         =   "GameOver.frx":151CE
  113.       ScaleHeight     =   960
  114.       ScaleWidth      =   960
  115.       TabIndex        =   1
  116.       Top             =   2280
  117.       Width           =   960
  118.    End
  119.    Begin VB.Shape Shape1 
  120.       Height          =   5055
  121.       Left            =   120
  122.       Top             =   1560
  123.       Width           =   8895
  124.    End
  125.    Begin VB.Line Line4 
  126.       X1              =   64
  127.       X2              =   528
  128.       Y1              =   88
  129.       Y2              =   88
  130.    End
  131.    Begin VB.Label Label10 
  132.       AutoSize        =   -1  'True
  133.       Caption         =   "Label3"
  134.       Height          =   195
  135.       Left            =   5400
  136.       TabIndex        =   18
  137.       Top             =   5760
  138.       Width           =   480
  139.    End
  140.    Begin VB.Label Label9 
  141.       AutoSize        =   -1  'True
  142.       Caption         =   "Label3"
  143.       Height          =   195
  144.       Left            =   5400
  145.       TabIndex        =   17
  146.       Top             =   4800
  147.       Width           =   480
  148.    End
  149.    Begin VB.Label Label8 
  150.       AutoSize        =   -1  'True
  151.       Caption         =   "Label3"
  152.       Height          =   195
  153.       Left            =   5400
  154.       TabIndex        =   16
  155.       Top             =   3720
  156.       Width           =   480
  157.    End
  158.    Begin VB.Label Label7 
  159.       AutoSize        =   -1  'True
  160.       Caption         =   "Label3"
  161.       Height          =   195
  162.       Left            =   5400
  163.       TabIndex        =   15
  164.       Top             =   2640
  165.       Width           =   480
  166.    End
  167.    Begin VB.Label Label6 
  168.       AutoSize        =   -1  'True
  169.       Caption         =   "Label3"
  170.       Height          =   195
  171.       Left            =   1320
  172.       TabIndex        =   14
  173.       Top             =   5760
  174.       Width           =   480
  175.    End
  176.    Begin VB.Label Label5 
  177.       AutoSize        =   -1  'True
  178.       Caption         =   "Label3"
  179.       Height          =   195
  180.       Left            =   1320
  181.       TabIndex        =   13
  182.       Top             =   4800
  183.       Width           =   480
  184.    End
  185.    Begin VB.Label Label4 
  186.       AutoSize        =   -1  'True
  187.       Caption         =   "Label3"
  188.       Height          =   195
  189.       Left            =   1320
  190.       TabIndex        =   12
  191.       Top             =   3720
  192.       Width           =   480
  193.    End
  194.    Begin VB.Label Label3 
  195.       AutoSize        =   -1  'True
  196.       Caption         =   "Label3"
  197.       Height          =   195
  198.       Left            =   1320
  199.       TabIndex        =   11
  200.       Top             =   2640
  201.       Width           =   480
  202.    End
  203.    Begin VB.Label Label2 
  204.       Caption         =   "PLAYER 1"
  205.       BeginProperty Font 
  206.          Name            =   "MS Sans Serif"
  207.          Size            =   12
  208.          Charset         =   238
  209.          Weight          =   700
  210.          Underline       =   0   'False
  211.          Italic          =   0   'False
  212.          Strikethrough   =   0   'False
  213.       EndProperty
  214.       Height          =   375
  215.       Left            =   6720
  216.       TabIndex        =   6
  217.       Top             =   1560
  218.       Width           =   2175
  219.    End
  220.    Begin VB.Label Label1 
  221.       Caption         =   "PLAYER 2"
  222.       BeginProperty Font 
  223.          Name            =   "MS Sans Serif"
  224.          Size            =   12
  225.          Charset         =   238
  226.          Weight          =   700
  227.          Underline       =   0   'False
  228.          Italic          =   0   'False
  229.          Strikethrough   =   0   'False
  230.       EndProperty
  231.       Height          =   375
  232.       Left            =   840
  233.       TabIndex        =   5
  234.       Top             =   1680
  235.       Width           =   2175
  236.    End
  237.    Begin VB.Label Info 
  238.       Caption         =   "Label1"
  239.       BeginProperty Font 
  240.          Name            =   "Times New Roman"
  241.          Size            =   9.75
  242.          Charset         =   0
  243.          Weight          =   400
  244.          Underline       =   0   'False
  245.          Italic          =   -1  'True
  246.          Strikethrough   =   0   'False
  247.       EndProperty
  248.       Height          =   975
  249.       Left            =   1680
  250.       TabIndex        =   0
  251.       Top             =   240
  252.       Width           =   5655
  253.       WordWrap        =   -1  'True
  254.    End
  255. End
  256. Attribute VB_Name = "GameOver"
  257. Attribute VB_GlobalNameSpace = False
  258. Attribute VB_Creatable = False
  259. Attribute VB_PredeclaredId = True
  260. Attribute VB_Exposed = False
  261. Private Sub Command1_Click()
  262. MainMenu.Visible = True
  263. GameOver.Visible = False
  264.  
  265.  
  266. End Sub
  267.  
  268.