VERSION 5.00
Begin VB.Form frmCircles 
   Caption         =   "Circles"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton CmdDrawStyle 
      Caption         =   "Стиль"
      Height          =   495
      Left            =   960
      TabIndex        =   4
      Top             =   1920
      Width           =   1215
   End
   Begin VB.HScrollBar HSbCircleWidth 
      Height          =   255
      Left            =   2040
      Max             =   10
      Min             =   1
      TabIndex        =   3
      Top             =   120
      Value           =   1
      Width           =   2535
   End
   Begin VB.VScrollBar VSBRadius 
      Height          =   1215
      Left            =   600
      Max             =   100
      TabIndex        =   2
      Top             =   960
      Value           =   1
      Width           =   255
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "Exit"
      Height          =   495
      Left            =   120
      TabIndex        =   1
      Top             =   2520
      Width           =   1215
   End
   Begin VB.PictureBox picCircles 
      Height          =   2415
      Left            =   2160
      ScaleHeight     =   2355
      ScaleWidth      =   2355
      TabIndex        =   0
      Top             =   480
      Width           =   2415
   End
End
Attribute VB_Name = "frmCircles"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdDrawStyle_Click()
Dim thestyle
thestyle = InputBox("Input The num of steyle 0-6:")
If Val(thestyle) < 0 Or Val(thestyle) > 6 Then
Beep
MsgBox ("incorrect num of style")
Else
picCircles.DrawStyle = Val(thestyle)
End If


End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub HSbCircleWidth_Change()
Dim x, y, radius
picCircles.DrawWidth = HSbCircleWidth.Value
x = picCircles.ScaleWidth / 2
y = picCircles.ScaleHeight / 2
picCircles.Cls
picCircles.Circle (x, y), VSBRadius.Value * 10, RGB(255, 0, 0)

End Sub

Private Sub HSbCircleWidth_Scroll()
HSbCircleWidth_Change
End Sub

Private Sub VSBRadius_Change()
Dim x, y, radius
picCircles.DrawWidth = HSbCircleWidth.Value
x = picCircles.ScaleWidth / 2
y = picCircles.ScaleHeight / 2
picCircles.Cls
picCircles.Circle (x, y), VSBRadius.Value * 10, RGB(255, 0, 0)


End Sub

Private Sub VSBRadius_Scroll()
VSBRadius_Change
End Sub
