shapes(enabled).frm

codding for pszone one can use it at playstation zones

VERSION 5.00
Begin VB.Form Form29 
   BackColor       =   &H00808080&
   Caption         =   "Form29"
   ClientHeight    =   5385
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7440
   ForeColor       =   &H00FFFFFF&
   LinkTopic       =   "Form29"
   ScaleHeight     =   11115
   ScaleWidth      =   15240
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton CMDEXT 
      Caption         =   "Command9"
      BeginProperty Font 
         Name            =   "Monotype Corsiva"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1095
      Left            =   4080
      TabIndex        =   8
      Top             =   6120
      Width           =   2295
   End
   Begin VB.Frame Frame1 
      Caption         =   "Frame1"
      BeginProperty Font 
         Name            =   "Monotype Corsiva"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   7215
      Left            =   840
      TabIndex        =   0
      Top             =   120
      Width           =   2415
      Begin VB.CommandButton CMDCS 
         Caption         =   "Command8"
         BeginProperty Font 
            Name            =   "Monotype Corsiva"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   240
         TabIndex        =   9
         Top             =   6240
         Width           =   1695
      End
      Begin VB.CommandButton CMDRS 
         Caption         =   "Command7"
         BeginProperty Font 
            Name            =   "Monotype Corsiva"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   240
         TabIndex        =   7
         Top             =   5400
         Width           =   1695
      End
      Begin VB.CommandButton CMDRR 
         Caption         =   "Command6"
         BeginProperty Font 
            Name            =   "Monotype Corsiva"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   240
         TabIndex        =   6
         Top             =   4560
         Width           =   1695
      End
      Begin VB.CommandButton CMDCIR 
         Caption         =   "Command5"
         BeginProperty Font 
            Name            =   "Monotype Corsiva"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   240
         TabIndex        =   5
         Top             =   3720
         Width           =   1695
      End
      Begin VB.CommandButton CMDOV 
         Caption         =   "Command4"
         BeginProperty Font 
            Name            =   "Monotype Corsiva"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   240
         TabIndex        =   4
         Top             =   2880
         Width           =   1695
      End
      Begin VB.CommandButton CMDSQ 
         Caption         =   "Command3"
         BeginProperty Font 
            Name            =   "Monotype Corsiva"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   240
         TabIndex        =   3
         Top             =   2040
         Width           =   1695
      End
      Begin VB.CommandButton CMDREC 
         Caption         =   "Command2"
         BeginProperty Font 
            Name            =   "Monotype Corsiva"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   240
         TabIndex        =   2
         Top             =   1200
         Width           =   1695
      End
      Begin VB.CommandButton CMDDR 
         Caption         =   "Command1"
         BeginProperty Font 
            Name            =   "Monotype Corsiva"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   240
         TabIndex        =   1
         Top             =   360
         Width           =   1695
      End
   End
   Begin VB.Shape Shape1 
      Height          =   2295
      Left            =   4200
      Top             =   1680
      Width           =   3975
   End
End
Attribute VB_Name = "Form29"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False




Private Sub CMDCIR_Click()
Shape1.Visible = True
Shape1.Shape = 3
End Sub

Private Sub CMDCS_Click()
Shape1.Visible = False
End Sub

Private Sub CMDDR_Click()
CMDREC.Enabled = True
CMDSQ.Enabled = True
CMDOV.Enabled = True
CMDCIR.Enabled = True
CMDRR.Enabled = True
CMDRS.Enabled = True
CMDCS.Enabled = True
Shape1.Visible = False
End Sub

Private Sub CMDEXT_Click()
End
End Sub

Private Sub CMDOV_Click()
Shape1.Visible = True
Shape1.Shape = 2
End Sub

Private Sub CMDREC_Click()
Shape1.Visible = True
Shape1.Shape = 0
End Sub

Private Sub CMDRR_Click()
Shape1.Visible = True
Shape1.Shape = 4
End Sub

Private Sub CMDRS_Click()
Shape1.Visible = True
Shape1.Shape = 5
End Sub

Private Sub CMDSQ_Click()
Shape1.Visible = True
Shape1.Shape = 1
End Sub

Private Sub Form_Load()
CMDDR.Caption = "DRAW SHAPE"
CMDREC.Caption = "RECTANGLE"
CMDSQ.Caption = "SQUARE"
CMDOV.Caption = "OVAL"
CMDCIR.Caption = "CIRCLE"
CMDRR.Caption = "ROUNDED RECTANGLE"
CMDRS.Caption = "ROUNDED SQUARE"
CMDCS.Caption = "CLEAR SHAPE"
CMDEXT.Caption = "EXIT"
CMDREC.Enabled = False
CMDSQ.Enabled = False
CMDOV.Enabled = False
CMDCIR.Enabled = False
CMDRR.Enabled = False
CMDRS.Enabled = False
CMDCS.Enabled = False
Shape1.Visible = False
End Sub