home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / VB_Basix767484282002.psc / frmMain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-28  |  4.2 KB  |  151 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    Caption         =   "KLoWnZ Project for stupid people"
  4.    ClientHeight    =   1500
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4920
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   1500
  10.    ScaleWidth      =   4920
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton Command11 
  13.       Caption         =   "About"
  14.       Height          =   495
  15.       Left            =   0
  16.       TabIndex        =   11
  17.       Top             =   960
  18.       Width           =   1215
  19.    End
  20.    Begin VB.CommandButton Command10 
  21.       Caption         =   "Variables"
  22.       Height          =   495
  23.       Left            =   0
  24.       TabIndex        =   10
  25.       Top             =   360
  26.       Width           =   1215
  27.    End
  28.    Begin VB.CommandButton Command9 
  29.       Caption         =   "Menus"
  30.       Height          =   495
  31.       Left            =   3720
  32.       TabIndex        =   9
  33.       Top             =   960
  34.       Width           =   1215
  35.    End
  36.    Begin VB.CommandButton Command8 
  37.       Caption         =   "Special!"
  38.       Height          =   495
  39.       Left            =   2520
  40.       TabIndex        =   8
  41.       Top             =   960
  42.       Width           =   1215
  43.    End
  44.    Begin VB.CommandButton Command7 
  45.       Caption         =   "Select Case"
  46.       Height          =   495
  47.       Left            =   1320
  48.       TabIndex        =   7
  49.       Top             =   960
  50.       Width           =   1215
  51.    End
  52.    Begin VB.CommandButton Command6 
  53.       Caption         =   "Looping"
  54.       Height          =   495
  55.       Left            =   3720
  56.       TabIndex        =   6
  57.       Top             =   480
  58.       Width           =   1215
  59.    End
  60.    Begin VB.CommandButton Command5 
  61.       Caption         =   "ElseIf"
  62.       Height          =   495
  63.       Left            =   2520
  64.       TabIndex        =   5
  65.       Top             =   480
  66.       Width           =   1215
  67.    End
  68.    Begin VB.CommandButton Command4 
  69.       Caption         =   "If/Then"
  70.       Height          =   495
  71.       Left            =   1320
  72.       TabIndex        =   4
  73.       Top             =   480
  74.       Width           =   1215
  75.    End
  76.    Begin VB.CommandButton Command3 
  77.       Caption         =   "Captions"
  78.       Height          =   495
  79.       Left            =   3720
  80.       TabIndex        =   3
  81.       Top             =   0
  82.       Width           =   1215
  83.    End
  84.    Begin VB.CommandButton Command2 
  85.       Caption         =   "Color"
  86.       Height          =   495
  87.       Left            =   2520
  88.       TabIndex        =   2
  89.       Top             =   0
  90.       Width           =   1215
  91.    End
  92.    Begin VB.CommandButton Command1 
  93.       Caption         =   "Timers"
  94.       Height          =   495
  95.       Left            =   1320
  96.       TabIndex        =   1
  97.       Top             =   0
  98.       Width           =   1215
  99.    End
  100.    Begin VB.ComboBox Combo1 
  101.       Height          =   315
  102.       Left            =   0
  103.       TabIndex        =   0
  104.       Text            =   "Combo1"
  105.       Top             =   0
  106.       Width           =   1215
  107.    End
  108. Attribute VB_Name = "frmMain"
  109. Attribute VB_GlobalNameSpace = False
  110. Attribute VB_Creatable = False
  111. Attribute VB_PredeclaredId = True
  112. Attribute VB_Exposed = False
  113. 'Must I comment this? Oh well
  114. Private Sub Command1_Click()
  115.     frmTimer.Visible = True 'Shows it
  116. End Sub
  117. Private Sub Command10_Click()
  118.     frmVariables.Show 'Shows it
  119. End Sub
  120. Private Sub Command11_Click()
  121.     frmAbout.Show 'Shows it
  122. End Sub
  123. Private Sub Command2_Click()
  124.     frmColor.Show 'Shows it
  125. End Sub
  126. Private Sub Command3_Click()
  127.     frmCaption.Show 'Shows it
  128. End Sub
  129. Private Sub Command4_Click()
  130.     frmIfThen.Show 'Shows it
  131. End Sub
  132. Private Sub Command5_Click()
  133.     frmElseIf.Show 'Shows it
  134. End Sub
  135. Private Sub Command6_Click()
  136.     frmLoop.Show 'Shows it
  137. End Sub
  138. Private Sub Command7_Click()
  139.     frmSelectCase.Show
  140. End Sub
  141. Private Sub Command8_Click()
  142.     frmSpecial.Show 'Shows it
  143. End Sub
  144. Private Sub Command9_Click()
  145.     frmMenu.Show 'Shows it
  146. End Sub
  147. Private Sub Form_Load()
  148.     Combo1.AddItem "KLoWnZ" 'adds my name to combo1
  149.     Combo1.AddItem "2k2" 'adds 2k2 to combo1
  150. End Sub
  151.