VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   8835
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   11730
   LinkTopic       =   "Form1"
   ScaleHeight     =   8835
   ScaleWidth      =   11730
   Begin VB.CommandButton Command2 
      Caption         =   ""
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   360
      TabIndex        =   4
      Top             =   4200
      Width           =   1575
   End
   Begin VB.Timer Timer5 
      Left            =   5040
      Top             =   240
   End
   Begin VB.Timer Timer4 
      Left            =   4320
      Top             =   240
   End
   Begin VB.Timer Timer3 
      Left            =   3560
      Top             =   240
   End
   Begin VB.CommandButton Command5 
      Caption         =   ""
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   360
      TabIndex        =   3
      Top             =   3210
      Width           =   1575
   End
   Begin VB.Timer Timer2 
      Left            =   2800
      Top             =   240
   End
   Begin VB.CommandButton Command4 
      Caption         =   ""
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   360
      TabIndex        =   2
      Top             =   2220
      Width           =   1575
   End
   Begin VB.Timer Timer1 
      Left            =   2040
      Top             =   240
   End
   Begin VB.CommandButton Command3 
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   360
      TabIndex        =   1
      Top             =   1230
      Width           =   1815
   End
   Begin VB.CommandButton Command1 
      Caption         =   " "
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   360
      TabIndex        =   0
      Top             =   240
      Width           =   1575
   End
   Begin VB.Label Label1 
      Caption         =   $"Form1.frx":0000
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   11.25
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   7335
      Left            =   8400
      TabIndex        =   5
      Top             =   960
      Width           =   2175
   End
   Begin VB.Image Image6 
      Height          =   135
      Left            =   8760
      Picture         =   "Form1.frx":013F
      Stretch         =   -1  'True
      Top             =   600
      Width           =   495
   End
   Begin VB.Image Image5 
      Height          =   135
      Left            =   9240
      Picture         =   "Form1.frx":0581
      Stretch         =   -1  'True
      Top             =   480
      Width           =   495
   End
   Begin VB.Image Image4 
      Height          =   135
      Left            =   8760
      Picture         =   "Form1.frx":09C3
      Stretch         =   -1  'True
      Top             =   480
      Width           =   495
   End
   Begin VB.Image Image3 
      Height          =   135
      Left            =   9240
      Picture         =   "Form1.frx":0E05
      Stretch         =   -1  'True
      Top             =   360
      Width           =   495
   End
   Begin VB.Image Image2 
      Height          =   135
      Left            =   8760
      Picture         =   "Form1.frx":1247
      Stretch         =   -1  'True
      Top             =   360
      Width           =   495
   End
   Begin VB.Image Image1 
      Height          =   615
      Left            =   240
      Picture         =   "Form1.frx":1689
      Stretch         =   -1  'True
      Top             =   7080
      Width           =   375
   End
   Begin VB.Line Line1 
      BorderColor     =   &H000040C0&
      BorderWidth     =   2
      Index           =   6
      X1              =   5880
      X2              =   8280
      Y1              =   1080
      Y2              =   3840
   End
   Begin VB.Line Line1 
      BorderColor     =   &H000040C0&
      BorderWidth     =   2
      Index           =   5
      X1              =   8280
      X2              =   8280
      Y1              =   3840
      Y2              =   5640
   End
   Begin VB.Line Line1 
      BorderColor     =   &H000040C0&
      BorderWidth     =   2
      Index           =   4
      X1              =   8280
      X2              =   5880
      Y1              =   5640
      Y2              =   7800
   End
   Begin VB.Line Line1 
      BorderColor     =   &H000040C0&
      BorderWidth     =   2
      Index           =   3
      X1              =   3360
      X2              =   5880
      Y1              =   5520
      Y2              =   7800
   End
   Begin VB.Line Line1 
      BorderColor     =   &H000040C0&
      BorderWidth     =   2
      Index           =   2
      X1              =   3360
      X2              =   5880
      Y1              =   1920
      Y2              =   1080
   End
   Begin VB.Line Line1 
      BorderColor     =   &H000040C0&
      BorderWidth     =   2
      Index           =   1
      X1              =   3360
      X2              =   3360
      Y1              =   1920
      Y2              =   5520
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00004080&
      BorderWidth     =   4
      Index           =   0
      X1              =   5880
      X2              =   5880
      Y1              =   1080
      Y2              =   7800
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Lvetki As Integer, dD As Integer 'Lvetki -  , dD -   
Dim Dvij As Integer '   1     
Dim dX As Integer, dY As Integer, DelTa As Integer 'DelTa -    , dX  dY -     

Private Sub Command1_Click()
' 
Dim i As Integer '
For i = 1 To 3 '
Line1(i).X2 = Line1(0).X1: Line1(i).X1 = Line1(i).X2 - Lvetki '
Line1(6 - i + 1).X2 = Line1(0).X1: Line1(6 - i + 1).X1 = Line1(6 - i + 1).X2 + Lvetki
Line1(i).Y1 = Line1(0).Y1 + dD * i: Line1(i).Y2 = Line1(i).Y1
Line1(6 - i + 1).Y1 = Line1(i).Y1: Line1(6 - i + 1).Y2 = Line1(i).Y1
Next i
' 
Timer5.Interval = 140
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
'  
Timer1.Interval = 100
End Sub

Private Sub Command4_Click()
'
Timer2.Interval = 200
End Sub

Private Sub Command5_Click()
'
Timer2.Interval = 0
Timer3.Interval = 150
End Sub

Private Sub Form_Load()
Lvetki = 3000
dD = (Line1(0).Y2 - Line1(0).Y1) / 4
Image1.Left = 111: Image1.Top = Line1(0).Y2 - Image1.Height
Dvij = 200
DelTa = 20
End Sub

Private Sub Timer1_Timer()
'  
'Dvij -    1     
If Image1.Top < Line1(0).Y2 - Image1.Height Then
If Image1.Top > Line1(0).Y1 And Image1.Top > Line1(0).Y1 + Image1.Height Then
Image1.Top = Image1.Top - Dvij
Else: Image1.Top = Line1(0).Y1 - Image1.Height: Timer1.Interval = 0
End If
ElseIf Image1.Left < Line1(0).X2 - Image1.Height Then
Image1.Left = Image1.Left + Dvij
Else: Image1.Left = Line1(0).X2 - Image1.Width / 2: Image1.Top = Image1.Top - Dvij
End If
End Sub

Private Sub Timer2_Timer()
',   
Static i As Integer
Static imL As Integer, imT As Integer 'imL  imT -  Image1.Left  Image1.Top
If i > 5 Then i = 0 Else i = i + 1
imL = Line1(i).X1 - Image1.Width / 2: imT = Line1(i).Y1 - Image1.Height
Image1.Move imL, imT
End Sub

Private Sub Timer3_Timer()
Static i As Integer
Static imL As Integer, imT As Integer
Do Until Image1.Left - Line1(i).X1 < Image1.Width
i = i + 1
DoEvents
Loop
Do
If i < 6 And i > 1 Then
i = i + 1
imL = Line1(i).X1 - Image1.Width / 2: imT = Line1(i).Y1 - Image1.Height
Image1.Move imL, imT
ElseIf i >= 6 Then
i = 0
imL = Line1(i).X1 - Image1.Width / 2: imT = Line1(i).Y1 - Image1.Height
Image1.Move imL, imT
Else: i = 1
imL = Line1(i).X1 - Image1.Width / 2: imT = Line1(i).Y1 - Image1.Height
Image1.Move imL, imT
Timer3.Interval = 0
Timer4.Interval = 100
Exit Do
End If
DoEvents
Loop
dX = imL / DelTa: dY = (Line1(0).Y2 - imT - Image1.Height) / DelTa
End Sub

Private Sub Timer4_Timer()
Static i As Integer
Static imL As Integer, imT As Integer
Line1(1).X1 = Line1(1).X1 - dX: Line1(1).Y1 = Line1(1).Y1 + dY
imL = Image1.Left - dX: imT = Image1.Top + dY
Image1.Move imL, imT
i = i + 1
If i >= DelTa Then
Timer4.Interval = 0
Line1(1).X1 = Line1(2).X1
Line1(1).Y1 = Line1(2).Y1
Else
End If
End Sub

Private Static Sub Timer5_Timer()
'          
Dim j As Integer, i As Integer, p As Integer
j = CInt(Rnd * 6.4)
Image2.Left = Line1(j).X1 + (Line1(j).X2 - Line1(j).X1) / 2
Image2.Top = Line1(j).Y1 + (Line1(j).Y2 - Line1(j).Y1) / 2 - Image2.Height
For i = 1 To 4
If j + i <= 6 Then
p = j + i
Else: p = j + i - 7
End If
Image3.Left = Line1(p).X1 + (Line1(p).X2 - Line1(p).X1) / 2
Image3.Top = Line1(p).Y1 + (Line1(p).Y2 - Line1(p).Y1) / 2 - Image3.Height
Image4.Left = Line1(p).X1 + (Line1(p).X2 - Line1(p).X1) / 2
Image4.Top = Line1(p).Y1 + (Line1(p).Y2 - Line1(p).Y1) / 2 - Image4.Height
Image5.Left = Line1(p).X1 + (Line1(p).X2 - Line1(p).X1) / 2
Image5.Top = Line1(p).Y1 + (Line1(p).Y2 - Line1(p).Y1) / 2 - Image5.Height
Image6.Left = Line1(p).X1 + (Line1(p).X2 - Line1(p).X1) / 2
Image6.Top = Line1(p).Y1 + (Line1(p).Y2 - Line1(p).Y1) / 2 - Image6.Height
Next i
End Sub
