VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H00FFFFFF&
   Caption         =   "Form1"
   ClientHeight    =   5775
   ClientLeft      =   1380
   ClientTop       =   1755
   ClientWidth     =   6450
   LinkTopic       =   "Form1"
   ScaleHeight     =   5775
   ScaleWidth      =   6450
   Begin VB.CommandButton Command1 
      Caption         =   "пуск"
      Height          =   375
      Left            =   5280
      TabIndex        =   0
      Top             =   5160
      Width           =   975
   End
   Begin VB.Timer Timer1 
      Interval        =   50
      Left            =   120
      Top             =   5280
   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 I, k As Integer
Dim Dx, Dy As Single

Private Sub Command1_Click()
Form1.Cls
I = 1
k = I

End Sub

Private Sub Timer1_Timer()
Beep 'подача звукового сигнала '
Timer1.Interval = I * 100

Circle (5 + Dx * (k - 1), 5 + Dy * (k - 1)), 2, &HFFFFFF 'окружность
I = I + 1
k = I

Circle (5 + Dx * (I - 1), 5 + Dy * (I - 1)), 2, &H0 'окружность

End Sub

Private Sub Form_Load()
I = 1
k = I
Dx = 5 'смещение по оси Х
Dy = 5 'смещение по оси Y
Form1.Scale (0, 100)-(100, 0) 'оси координат(0,0)-в нижнем левом углу
End Sub

