mdiform_main.frm

codding for pszone one can use it at playstation zones

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H00404040&
   Caption         =   "Welcome to PSZone"
   ClientHeight    =   3150
   ClientLeft      =   5025
   ClientTop       =   2850
   ClientWidth     =   6660
   LinkTopic       =   "MDIForm1"
   Moveable        =   0   'False
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuplay 
      Caption         =   "&Play ||"
      Begin VB.Menu mnuplayps 
         Caption         =   "Play on Ps"
      End
   End
   Begin VB.Menu mnuaccounts 
      Caption         =   "A&ccounts ||"
      Begin VB.Menu mnuaccdetails 
         Caption         =   "Account Details"
      End
      Begin VB.Menu mnuaddacc 
         Caption         =   "Add account"
      End
      Begin VB.Menu mnudelacc 
         Caption         =   "Delete Account"
      End
   End
   Begin VB.Menu mnuavailability 
      Caption         =   "D&ealing And Availability ||"
      Begin VB.Menu mnugames 
         Caption         =   "Games"
      End
      Begin VB.Menu mnuconsoles 
         Caption         =   "Consoles"
      End
   End
   Begin VB.Menu mnuothers 
      Caption         =   "&Others ||"
      Begin VB.Menu mnurates 
         Caption         =   "&Rates"
      End
      Begin VB.Menu mnuabtus 
         Caption         =   "A&bout us"
      End
   End
   Begin VB.Menu mnuexit 
      Caption         =   "E&xit"
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
    MDIForm1.WindowState = 2
End Sub

Private Sub mnuabtus_Click()
    frmabout.Show
End Sub

Private Sub mnuaccdetails_Click()
    frmaccdetails.Show
End Sub

Private Sub mnuaddacc_Click()
    frmaddacc.Show
End Sub

Private Sub mnuconsoles_Click()
    frmconsoles.Show
End Sub

Private Sub mnudelacc_Click()
    frmaccdelete.Show
End Sub

Private Sub mnuexit_Click()
Dim ex As Integer
ex = MsgBox("Are you sure?", vbYesNo, "Quitting...")
    If ex = vbYes Then
        End
    End If
End Sub

Private Sub mnugames_Click()
    frmgames.Show
End Sub

Private Sub mnuplayps_Click()
    Load frmplay
    frmplay.Show
    
End Sub

Private Sub mnurates_Click()
    Load drrate_playing
    drrate_playing.Show
End Sub