VERSION 5.00
Begin VB.Form frmcolors 
   BackColor       =   &H00FFFFFF&
   Caption         =   "colors"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu mnuColors 
      Caption         =   "Цвет"
      Begin VB.Menu mnuSetColor 
         Caption         =   "Выбрать цвет"
         Begin VB.Menu mnuRed 
            Caption         =   "Красный"
         End
         Begin VB.Menu mnuBlue 
            Caption         =   "Синий"
         End
         Begin VB.Menu mnuWhite 
            Caption         =   "Белый"
         End
      End
      Begin VB.Menu mnusep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "выход"
      End
   End
   Begin VB.Menu mnuSize 
      Caption         =   "Размер"
      Begin VB.Menu mnuSmall 
         Caption         =   "Маленький"
      End
      Begin VB.Menu mnuLarge 
         Caption         =   "Большой"
      End
   End
End
Attribute VB_Name = "frmcolors"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
mnuWhite.Enabled = False
mnuSmall.Enabled = False
End Sub

Private Sub mnuBlue_Click()
mnuRed.Checked = False
frmcolors.BackColor = QBColor(1)
mnuBlue.Enabled = False
mnuRed.Enabled = True
mnuWhite.Enabled = True
End Sub

Private Sub mnuExit_Click()
End
End Sub

Private Sub mnuLarge_Click()
frmcolors.WindowState = 2
mnuSmall.Enabled = True
mnuLarge.Enabled = False
End Sub

Private Sub mnuRed_Click()
mnuRed.Checked = True
frmcolors.BackColor = QBColor(4)
mnuRed.Enabled = False
mnuBlue.Enabled = True
mnuWhite.Enabled = True
End Sub

Private Sub mnuSmall_Click()
frmcolors.WindowState = 0
mnuSmall.Enabled = False
mnuLarge.Enabled = True
End Sub

Private Sub mnuWhite_Click()
frmcolors.BackColor = QBColor(15)
mnuWhite.Enabled = False
mnuBlue.Enabled = True
mnuRed.Enabled = True
End Sub
