Имитация движения жидкости в трубе

Option Explicit
Private Sub Form_DblClick()
fParam.Visible = True ' видимость формы
fTrub.Visible = True
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    End
End Sub
Public Sub Form_Load()
Dim rComb As Long, rnew As Long
Dim brFrame As Long, brPaint As Long
If m = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf m = 2 Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
Me.AutoRedraw = True ' сохранение графики
elline(0).Height = 5
elline(0).Width = 615
a_X(0) = 1100 + q
elline(0).Top = a_X(0) 'X
a_Y(0) = 1000 + q
elline(0).Left = a_Y(0) + q  'y
For i = 1 To n 'цикл, выводящий массив обьектов
Load elline(i) ' загрузка Shape1
With elline(i) ' блок для установки свойств объекта  elline(i)
 
.Visible = True
.Shape = 4
.Height = 5
.Width = 400
a_Y(i) = 200
a_Y(i) = (a_Y(i - 1)) + q ' расположение частиц
elline(i).Top = elline(i - 1).Top + 55
elline(i).Left = (a_X(i)) + Rnd * 2800
 
End With
Next i
rComb = CreateRoundRectRgn(100 - dia * 2, 50, 230 + dia * 2, 120 + dl * 2, 80, 30)
rnew = CreateEllipticRgn(100 - dia * 2, 50, 230 + dia * 2, 70)
brPaint = CreateSolidBrush(vbYellow)
brFrame = CreateSolidBrush(1)
FillRgn fTrub.hdc, rComb, brPaint
FrameRgn fTrub.hdc, rComb, brFrame, 1, 2
FillRgn fTrub.hdc, rnew, brPaint
FrameRgn fTrub.hdc, rnew, brFrame, 1, 2
End Sub
 
Private Sub Timer1_Timer() ' таймер движения
End Sub
 
Private Sub Timer2_Timer() ' таймер движения
For i = 0 To n
With elline(i)
 .Move .Left - sp, .Top
If .Left < 1100 Then .Left = 2800
If .Left > 2800 Then .Left = 1100
End With
Next i
End Sub

Private Sub Timer2_Timer() ' таймер движения
For i = 0 To n
With elline(i)
 .Move .Left - sp, .Top
If .Left < 1100 Then .Left = 2800
If .Left > 2800 Then .Left = 1100
End With
Next i
End Sub