home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD8798892000.psc / room13.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-08-01  |  4.0 KB  |  145 lines
  1. VERSION 5.00
  2. Begin VB.Form Form13 
  3.    Caption         =   "Form13"
  4.    ClientHeight    =   3195
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form13"
  9.    ScaleHeight     =   3195
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton Command1 
  13.       Caption         =   "Climb"
  14.       Height          =   615
  15.       Left            =   2880
  16.       TabIndex        =   1
  17.       Top             =   1560
  18.       Width           =   855
  19.    End
  20.    Begin VB.Shape Shape18 
  21.       Height          =   495
  22.       Left            =   1080
  23.       Top             =   480
  24.       Width           =   495
  25.    End
  26.    Begin VB.Shape Shape17 
  27.       Height          =   255
  28.       Left            =   1920
  29.       Top             =   360
  30.       Width           =   255
  31.    End
  32.    Begin VB.Shape Shape16 
  33.       Height          =   255
  34.       Left            =   240
  35.       Top             =   360
  36.       Width           =   495
  37.    End
  38.    Begin VB.Shape Shape15 
  39.       Height          =   255
  40.       Left            =   720
  41.       Top             =   720
  42.       Width           =   255
  43.    End
  44.    Begin VB.Shape Shape14 
  45.       Height          =   255
  46.       Left            =   1440
  47.       Top             =   2760
  48.       Width           =   375
  49.    End
  50.    Begin VB.Shape Shape13 
  51.       Height          =   375
  52.       Left            =   960
  53.       Top             =   1080
  54.       Width           =   375
  55.    End
  56.    Begin VB.Shape Shape12 
  57.       Height          =   615
  58.       Left            =   1680
  59.       Top             =   720
  60.       Width           =   375
  61.    End
  62.    Begin VB.Shape Shape11 
  63.       Height          =   255
  64.       Left            =   600
  65.       Top             =   1440
  66.       Width           =   255
  67.    End
  68.    Begin VB.Shape Shape10 
  69.       Height          =   255
  70.       Left            =   1800
  71.       Top             =   1920
  72.       Width           =   375
  73.    End
  74.    Begin VB.Shape Shape9 
  75.       Height          =   255
  76.       Left            =   600
  77.       Top             =   2040
  78.       Width           =   255
  79.    End
  80.    Begin VB.Shape Shape8 
  81.       Height          =   375
  82.       Left            =   240
  83.       Top             =   720
  84.       Width           =   255
  85.    End
  86.    Begin VB.Shape Shape7 
  87.       Height          =   255
  88.       Left            =   1080
  89.       Top             =   1920
  90.       Width           =   255
  91.    End
  92.    Begin VB.Shape Shape6 
  93.       Height          =   255
  94.       Left            =   240
  95.       Top             =   1440
  96.       Width           =   255
  97.    End
  98.    Begin VB.Shape Shape5 
  99.       Height          =   255
  100.       Left            =   600
  101.       Top             =   2640
  102.       Width           =   255
  103.    End
  104.    Begin VB.Shape Shape4 
  105.       Height          =   375
  106.       Left            =   1440
  107.       Top             =   1200
  108.       Width           =   255
  109.    End
  110.    Begin VB.Shape Shape3 
  111.       Height          =   135
  112.       Left            =   1440
  113.       Top             =   2280
  114.       Width           =   255
  115.    End
  116.    Begin VB.Shape Shape2 
  117.       Height          =   135
  118.       Left            =   240
  119.       Top             =   2160
  120.       Width           =   135
  121.    End
  122.    Begin VB.Shape Shape1 
  123.       Height          =   3135
  124.       Left            =   0
  125.       Top             =   0
  126.       Width           =   2415
  127.    End
  128.    Begin VB.Label Label1 
  129.       Caption         =   "Darn! You tested the rope to see if it was strong and it broke. Now try to climb up the wall. It has crevises in it."
  130.       Height          =   855
  131.       Left            =   2520
  132.       TabIndex        =   0
  133.       Top             =   0
  134.       Width           =   2175
  135.    End
  136. Attribute VB_Name = "Form13"
  137. Attribute VB_GlobalNameSpace = False
  138. Attribute VB_Creatable = False
  139. Attribute VB_PredeclaredId = True
  140. Attribute VB_Exposed = False
  141. Private Sub Command1_Click()
  142.     Form13.Visible = False
  143.     Form14.Visible = True
  144. End Sub
  145.