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 / frmMenu.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-28  |  2.0 KB  |  70 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMenu 
  3.    Caption         =   "There are...Menus on here!"
  4.    ClientHeight    =   1440
  5.    ClientLeft      =   165
  6.    ClientTop       =   735
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   1440
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.Label Label1 
  13.       Caption         =   "Right Click form while in design mode and then click menu editor."
  14.       Height          =   495
  15.       Left            =   120
  16.       TabIndex        =   0
  17.       Top             =   840
  18.       Width           =   4455
  19.    End
  20.    Begin VB.Menu mnuKLoWnZ 
  21.       Caption         =   "KLoWnZ"
  22.       Begin VB.Menu mnuWebsite 
  23.          Caption         =   "Websites"
  24.          Begin VB.Menu mnuMysite 
  25.             Caption         =   "My website"
  26.          End
  27.          Begin VB.Menu mnuGPS 
  28.             Caption         =   "Good prog site"
  29.          End
  30.          Begin VB.Menu mnuFreeProgz 
  31.             Caption         =   "You wish it was still here"
  32.          End
  33.       End
  34.    End
  35.    Begin VB.Menu mnuAOL 
  36.       Caption         =   "AOL"
  37.       Begin VB.Menu mnuis 
  38.          Caption         =   "is"
  39.       End
  40.       Begin VB.Menu mnuVery 
  41.          Caption         =   "very"
  42.          Begin VB.Menu mnuBoring 
  43.             Caption         =   "Boring"
  44.          End
  45.       End
  46.       Begin VB.Menu mnuI 
  47.          Caption         =   "I"
  48.          Begin VB.Menu mnulike 
  49.             Caption         =   "like"
  50.          End
  51.          Begin VB.Menu mnuOrangesSuck 
  52.             Caption         =   "Cherries"
  53.          End
  54.       End
  55.    End
  56. Attribute VB_Name = "frmMenu"
  57. Attribute VB_GlobalNameSpace = False
  58. Attribute VB_Creatable = False
  59. Attribute VB_PredeclaredId = True
  60. Attribute VB_Exposed = False
  61. Private Sub mnuFreeProgz_Click()
  62.     MsgBox "www.freeprogz.com" 'A messagebox
  63. End Sub
  64. Private Sub mnuGPS_Click()
  65.     MsgBox "www.lenshell.com" 'A messagebox
  66. End Sub
  67. Private Sub mnuMysite_Click()
  68.     MsgBox "klownz2k2.topcities.com" 'A messagebox
  69. End Sub
  70.