VERSION 5.00
Begin VB.MDIForm MDIForm1 
   AutoShowChildren=   0   'False
   BackColor       =   &H80000001&
   Caption         =   "ScuzBot"
   ClientHeight    =   6960
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   6285
   LinkTopic       =   "MDIForm1"
   Moveable        =   0   'False
   NegotiateToolbars=   0   'False
   ScrollBars      =   0   'False
   WindowState     =   2  'Maximized
   Begin VB.Menu file 
      Caption         =   "File"
      Begin VB.Menu pbmenu 
         Caption         =   "Paintball Bot"
         Begin VB.Menu pbopen 
            Caption         =   "Open"
            Shortcut        =   ^P
         End
         Begin VB.Menu pbclose 
            Caption         =   "Close"
            Checked         =   -1  'True
            Shortcut        =   ^C
         End
      End
      Begin VB.Menu quit 
         Caption         =   "Exit"
         Shortcut        =   ^Q
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub pbopen_Click()
pbopen.Checked = True
pbclose.Checked = False
Form1.Show
End Sub
Private Sub pbclose_Click()
pbopen.Checked = False
pbclose.Checked = True
Form1.Hide
End Sub

Private Sub quit_Click()
End
End Sub