home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Rapid_Fire20330211252006.psc / frmCMD.frm < prev    next >
Text File  |  2002-09-08  |  2KB  |  60 lines
  1. VERSION 5.00
  2. Begin VB.Form frmCMD 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Commands"
  5.    ClientHeight    =   4515
  6.    ClientLeft      =   45
  7.    ClientTop       =   285
  8.    ClientWidth     =   2175
  9.    ControlBox      =   0   'False
  10.    Enabled         =   0   'False
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4515
  15.    ScaleWidth      =   2175
  16.    ShowInTaskbar   =   0   'False
  17.    Begin VB.ListBox lstShow 
  18.       Appearance      =   0  'Flat
  19.       Height          =   4515
  20.       Left            =   0
  21.       TabIndex        =   0
  22.       Top             =   0
  23.       Width           =   2175
  24.    End
  25. End
  26. Attribute VB_Name = "frmCMD"
  27. Attribute VB_GlobalNameSpace = False
  28. Attribute VB_Creatable = False
  29. Attribute VB_PredeclaredId = True
  30. Attribute VB_Exposed = False
  31. Private Sub cmdDone_Click()
  32.   Unload Me
  33. End Sub
  34.  
  35. Private Sub Form_Load()
  36.   OptCmds = True
  37.   lstShow.AddItem ("Esc: Exit Game")
  38.   lstShow.AddItem ("F1: Toggle Background")
  39.   lstShow.AddItem ("F2: Toggle Command List")
  40.   lstShow.AddItem ("")
  41.   lstShow.AddItem ("Player 1:")
  42.   lstShow.AddItem ("  Move Up: Up Arrow")
  43.   lstShow.AddItem ("  Move Down: Down Arrow")
  44.   lstShow.AddItem ("  Move Left: Left Arrow")
  45.   lstShow.AddItem ("  Move Right: Right Arrow")
  46.   lstShow.AddItem ("  Shoot: 0")
  47.   lstShow.AddItem ("")
  48.   lstShow.AddItem ("Player 2:")
  49.   lstShow.AddItem ("  Move Up: W")
  50.   lstShow.AddItem ("  Move Down: S")
  51.   lstShow.AddItem ("  Move Left: A")
  52.   lstShow.AddItem ("  Move Right:  D ")
  53.   lstShow.AddItem ("  Shoot: 1")
  54.   
  55. End Sub
  56.  
  57. Private Sub Form_Unload(Cancel As Integer)
  58.   OptCmds = False
  59. End Sub
  60.