menu editor (textbox).frm

codding for pszone one can use it at playstation zones

VERSION 5.00
Begin VB.Form Form35 
   BackColor       =   &H00808080&
   Caption         =   "Form35"
   ClientHeight    =   5055
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   8100
   LinkTopic       =   "Form35"
   ScaleHeight     =   5055
   ScaleWidth      =   8100
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.TextBox TXTEDITOR 
      BeginProperty Font 
         Name            =   "Comic Sans MS"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   8175
      Left            =   120
      MultiLine       =   -1  'True
      TabIndex        =   0
      Top             =   120
      Width           =   10215
   End
   Begin VB.Menu EDT 
      Caption         =   "EDIT"
      Begin VB.Menu CT 
         Caption         =   "CUT"
         Shortcut        =   ^X
      End
      Begin VB.Menu CPY 
         Caption         =   "COPY"
         Shortcut        =   ^C
      End
      Begin VB.Menu PST 
         Caption         =   "PASTE"
         Enabled         =   0   'False
         Shortcut        =   ^V
      End
   End
   Begin VB.Menu FMT 
      Caption         =   "FORMAT"
      Begin VB.Menu CLR 
         Caption         =   "COLOUR"
         Begin VB.Menu RD 
            Caption         =   "RED"
         End
         Begin VB.Menu BL 
            Caption         =   "BLUE"
         End
         Begin VB.Menu RGN 
            Caption         =   "GREEN"
         End
         Begin VB.Menu YLW 
            Caption         =   "YELLOW"
         End
      End
   End
   Begin VB.Menu EXT 
      Caption         =   "EXIT"
      Begin VB.Menu EN 
         Caption         =   "END"
      End
   End
End
Attribute VB_Name = "Form35"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub BL_Click()
RD.Checked = False
BL.Checked = True
RGN.Checked = False
YLW.Checked = False
TXTEDITOR.ForeColor = vbBlue
End Sub



Private Sub CPY_Click()
Clipboard.Clear
Clipboard.SetText (TXTEDITOR.SelText)
PST.Enabled = True
End Sub

Private Sub CT_Click()
Clipboard.Clear
Clipboard.SetText (TXTEDITOR.SelText)
TXTEDITOR.SelText = " "
PST.Enabled = True
End Sub

Private Sub EN_Click()
End
End Sub

Private Sub PST_Click()
TXTEDITOR.SelText = Clipboard.GetText
End Sub

Private Sub RD_Click()
RD.Checked = True
BL.Checked = False
RGN.Checked = False
YLW.Checked = False
TXTEDITOR.ForeColor = vbRed
End Sub

Private Sub RGN_Click()
RD.Checked = False
BL.Checked = False
RGN.Checked = True
YLW.Checked = False
TXTEDITOR.ForeColor = vbGreen
End Sub

Private Sub YLW_Click()
RD.Checked = False
BL.Checked = False
RGN.Checked = False
YLW.Checked = True
TXTEDITOR.ForeColor = vbYellow
End Sub