VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5895
   ClientLeft      =   1380
   ClientTop       =   1755
   ClientWidth     =   7365
   LinkTopic       =   "Form1"
   ScaleHeight     =   5895
   ScaleWidth      =   7365
   Begin VB.CommandButton Command3 
      Appearance      =   0  'Flat
      Caption         =   "выход"
      Height          =   2175
      Left            =   6120
      MaskColor       =   &H008080FF&
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   1920
      Width           =   615
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00FF0000&
      FillColor       =   &H000080FF&
      FillStyle       =   0  'Solid
      Height          =   3975
      Left            =   1320
      ScaleHeight     =   3915
      ScaleWidth      =   4035
      TabIndex        =   3
      Top             =   120
      Width           =   4095
   End
   Begin ComctlLib.Slider Slider1 
      Height          =   495
      Left            =   120
      TabIndex        =   2
      Top             =   4320
      Width           =   3615
      _ExtentX        =   6376
      _ExtentY        =   873
      _Version        =   327682
      Max             =   32
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Скорость вращения"
      Height          =   495
      Left            =   4200
      TabIndex        =   1
      Top             =   4320
      Width           =   2535
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Пуск"
      Height          =   375
      Left            =   2400
      TabIndex        =   0
      Top             =   4920
      Width           =   1935
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim n, s, r, i As Integer

Private Sub Command1_Click()
r = 100
Picture1.Scale (-10, 10)-(10, -10)

For n = 1 To 360 * r
Picture1.FillStyle = 1

Picture1.Circle (0, 0), 8, vbYellow
Picture1.FillStyle = 0

Picture1.FillColor = vbYellow
Picture1.Circle (0, 0), 2, vbYellow

Picture1.FillColor = vbCyan
Picture1.Circle (8 * Sin(6.28 / 360 * n), 8 * Cos(6.28 / 360 * n)), 1, vbCyan
For i = 1 To 1000 * s
Next

Picture1.FillColor = vbBlue
Picture1.Circle (8 * Sin(6.28 / 360 * n), 8 * Cos(6.28 / 360 * n)), 1, vbBlue

Picture1.FillColor = vbYellow
Picture1.Circle (0, 0), 2, vbYellow
Next

End Sub

Private Sub Command2_Click()
s = Slider1.Value
End Sub

Private Sub Command3_Click()
End
End Sub

