menu next.frm

codding for pszone one can use it at playstation zones

VERSION 5.00
Begin VB.Form Form11 
   Caption         =   "Form4"
   ClientHeight    =   4800
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   7050
   LinkTopic       =   "Form4"
   ScaleHeight     =   4800
   ScaleWidth      =   7050
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.Menu NXT 
      Caption         =   "FOR NEXT"
      Begin VB.Menu OD 
         Caption         =   "ODD"
      End
      Begin VB.Menu EVN 
         Caption         =   "EVEN"
      End
      Begin VB.Menu PRM 
         Caption         =   "PRIME"
      End
      Begin VB.Menu ODEV 
         Caption         =   "SUM OF ODD & EVEN"
      End
      Begin VB.Menu SQUARES 
         Caption         =   "SUM OF SQUARES"
      End
   End
   Begin VB.Menu DW 
      Caption         =   "DO WHILE"
      Begin VB.Menu FINO 
         Caption         =   "FIBONACCI"
      End
      Begin VB.Menu FACTS 
         Caption         =   "FACTORS"
      End
      Begin VB.Menu PLND 
         Caption         =   "PALINDROME"
      End
      Begin VB.Menu REV 
         Caption         =   "REVERSE NUMBER"
      End
   End
   Begin VB.Menu WW 
      Caption         =   "WHILE WEND"
      WindowList      =   -1  'True
      Begin VB.Menu SUM 
         Caption         =   "SUM UPTO THAT NUMBER"
      End
      Begin VB.Menu TABS 
         Caption         =   "TABLES"
      End
   End
   Begin VB.Menu EXT 
      Caption         =   "EXIT"
   End
End
Attribute VB_Name = "Form11"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub EVN_Click()
EVEN.Show
End Sub

Private Sub EXT_Click()
End
End Sub

Private Sub FACTS_Click()
Form5.Show
End Sub

Private Sub FINO_Click()
Form6.Show
End Sub

Private Sub OD_Click()
Form11.Show
End Sub

Private Sub ODEV_Click()
Form1.Show
End Sub

Private Sub PLND_Click()
Form12.Show
End Sub

Private Sub PRM_Click()
Form10.Show
End Sub

Private Sub SQUARES_Click()
Form9.Show
End Sub

Private Sub SUM_Click()
Form8.Show
End Sub

Private Sub TABS_Click()
Form13.Show
End Sub