VERSION 5.00
Begin VB.Form frm1 
   BackColor       =   &H00008080&
   Caption         =   "Цветовая палитра"
   ClientHeight    =   2880
   ClientLeft      =   3516
   ClientTop       =   3144
   ClientWidth     =   5436
   LinkTopic       =   "Form1"
   ScaleHeight     =   2880
   ScaleWidth      =   5436
   Begin VB.PictureBox picColor3 
      BackColor       =   &H00FFFFFF&
      Height          =   1500
      Left            =   3720
      ScaleHeight     =   1452
      ScaleWidth      =   1452
      TabIndex        =   3
      Top             =   120
      Width           =   1500
   End
   Begin VB.PictureBox picColor2 
      BackColor       =   &H00FFFFFF&
      Height          =   1500
      Left            =   1920
      ScaleHeight     =   1452
      ScaleWidth      =   1452
      TabIndex        =   2
      Top             =   120
      Width           =   1500
   End
   Begin VB.PictureBox picColor1 
      BackColor       =   &H00FFFFFF&
      Height          =   1500
      Left            =   120
      ScaleHeight     =   1452
      ScaleWidth      =   1452
      TabIndex        =   1
      Top             =   120
      Width           =   1500
   End
   Begin VB.CommandButton cmdStart 
      Caption         =   "Пуск"
      Height          =   495
      Left            =   1920
      TabIndex        =   0
      Top             =   2280
      Width           =   1575
   End
   Begin VB.Label lblGB 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      Caption         =   "Палитра GB"
      Height          =   255
      Left            =   3720
      TabIndex        =   6
      Top             =   1800
      Width           =   1575
   End
   Begin VB.Label lblRG 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      Caption         =   "Палитра RG"
      Height          =   255
      Left            =   1920
      TabIndex        =   5
      Top             =   1800
      Width           =   1575
   End
   Begin VB.Label lblRB 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      Caption         =   "Палитра RB"
      Height          =   255
      Left            =   120
      TabIndex        =   4
      Top             =   1800
      Width           =   1575
   End
End
Attribute VB_Name = "frm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim intR, intG, intB As Integer
Private Sub cmdStart_Click()
picColor1.Scale (-300, 300)-(300, -300)
picColor2.Scale (-300, 300)-(300, -300)
picColor3.Scale (-300, 300)-(300, -300)
For intI = 0 To 255
picColor1.Circle (0, 0), intI, RGB(255 - intI, 0, intI)
picColor2.Circle (0, 0), intI, RGB(255 - intI, intI, 0)
picColor3.Circle (0, 0), intI, RGB(0, 255 - intI, intI)
Next intI
End Sub
