imc2.Left = 5880
imc2.Top = 2160
pimc2.Visible = False
pimc2.Left = 5520
pimc2.Top = 3000
End If
End If
End Sub
Private Sub Timerpimc2_obr_Timer()
pimc2.Visible = False
TimerVYGR.Enabled = True
pimc2.Left = pimc2.Left - 350
imc2.Visible = True
If pimc2.Left <= 5520 Then
pimc2.Left = 5520
pimc2.Top = pimc2.Top - 350
If pimc2.Top < 3000 Then
Timerpimc2_obr = False
End If
End If
End Sub
Private Sub Timerpimc2_Timer()
pimc2.Top = pimc2.Top + 100
pimc2.Left = pimc2.Left + 100
pimc2.Visible = True
imc2.Visible = False
If pimc2.Top >= 4000 Then
pimc2.Top = 4000
If pimc2.Left >= 8000 Then
Timerpimc2.Enabled = False
Timerpimc2_obr.Enabled = True
End If
End If
End Sub
Private Sub TimerPOZIMC_Timer()
imc.Left = imc.Left + 50
R.Visible = True
R.Left = 3840
TimerSHIBER_4.Enabled = True
TimerPP_4.Enabled = True
If imc.Left >= 5250 Then
TimerPOZIMC.Enabled = False
ZR.Visible = False
ZR.Left = 3000
ZRIMC.Left = 5000
ZRIMC.Top = 3000
imc.Visible = False
TimerZRIMC_4.Enabled = True
End If
End Sub
Private Sub TimerPOZIMC2_Timer()
imc2.Left = imc2.Left + 50
imc.Visible = True
imc.Left = 4800
If imc2.Left >= 6360 Then
TimerPOZIMC2.Enabled = False
imc2.Visible = False
TimerPIMC2_4.Enabled = True
ZRIMC.Left = 5000
ZRIMC.Visible = False
End If
End Sub
Private Sub TimerPOZR_Timer()
R.Left = R.Left - 30
If R.Left <= 3500 Then
TimerPOZR.Enabled = False
R.Visible = False
ZR.Left = 3000
ZR.Top = 3000
PPZ.Visible = False
PPZ.Left = 2600
TimerZR_4.Enabled = True
End If
End Sub
Private Sub TimerPP_2_Timer()
pp.Left = pp.Left + 50
If pp.Left >= 2600 Then
TimerPP_2.Enabled = False
PPZ.Visible = True
TimerPPZ_2.Enabled = True
End If
End Sub
Private Sub TimerPP_3_Timer()
pp.Left = pp.Left + 50
If pp.Left >= 2600 Then
TimerPP_3.Enabled = False
PPZ.Visible = True
TimerPPZ_3.Enabled = True
R.Visible = True
imc.Visible = True
imc2.Visible = True
End If
End Sub
Private Sub TimerPP_4_Timer()
pp.Left = pp.Left + 50
If pp.Left >= 2600 Then
TimerPP_4.Enabled = False
PPZ.Visible = True
TimerPPZ_4.Enabled = True
End If
End Sub
Private Sub TimerPP_obr_Timer()
pp.Left = pp.Left - 50
If pp.Left <= 1320 Then
TimerPP_obr.Enabled = False
pp.Visible = True
End If
End Sub
Private Sub Timerpp_Timer()
pp.Left = pp.Left + 50
If pp.Left >= 2600 Then
Timerpp.Enabled = False
TimerPP_obr.Enabled = True
pp.Visible = False
PPZ.Visible = True
TimerPPZ.Enabled = True
End If
End Sub
Private Sub TimerPPZ_2_Timer()
PPZ.Left = PPZ.Left + 30
If PPZ.Left > 3480 Then
ZR.Visible = True
R.Visible = False
TimerZR_2.Enabled = True
TimerPPZ_2.Enabled = False
PPZ.Left = 2600
PPZ.Visible = False
ZR.Left = 3480
ZR.Top = 3000
End If
End Sub
Private Sub TimerPPZ_3_Timer()
PPZ.Left = PPZ.Left + 100
If PPZ.Left >= 5520 Then
TimerPPZ_3.Enabled = False
PPZ.Visible = False
PPZ.Left = 2600
TimerSHIBER_3.Enabled = True
TimerPP_3.Enabled = True
R.Visible = False
imc.Visible = False
imc2.Visible = False
Timerpimc2.Enabled = True
End If
End Sub
Private Sub TimerPPZ_4_Timer()
PPZ.Left = PPZ.Left + 50
If PPZ.Left >= 3000 Then
TimerPPZ_4.Enabled = False
TimerPOZR.Enabled = True
End If
End Sub
Private Sub TimerPPz_OBR_Timer()
PPZ.Left = PPZ.Left - 30
PPZ.Top = PPZ.Top + 30
PPZ.Visible = False
If PPZ.Top > 3000 Then
PPZ.Top = 3000
If PPZ.Left < 2640 Then
TimerPPz_OBR.Enabled = False
Timershiber.Enabled = True
Timerpp.Enabled = True
End If
End If
End Sub
Private Sub TimerPPZ_Timer()
PPZ.Left = PPZ.Left + 30
If PPZ.Left > 3000 Then
PPZ.Top = PPZ.Top - 30
If PPZ.Left > 3530 Then
TimerPPZ.Enabled = False
R.Visible = False
TimerZR.Enabled = True
End If
End If
End Sub
Private Sub Timershiber_2_OBR_Timer()
shiber.Left = shiber.Left - 50
pp.Visible = False
If shiber.Left <= 0 Then
Timershiber_2_OBR.Enabled = False
pp.Visible = True
pp.Left = 1320
End If
End Sub
Private Sub TimerSHIBER_3_OBR_Timer()
shiber.Left = shiber.Left - 50
pp.Visible = False
If shiber.Left <= 0 Then
TimerSHIBER_3_OBR.Enabled = False
pp.Visible = True
pp.Left = 1320
End If
End Sub
Private Sub TimerSHIBER_3_Timer()
shiber.Left = shiber.Left + 50
If shiber.Left >= 1300 Then
TimerSHIBER_3.Enabled = False
TimerSHIBER_3_OBR.Enabled = True
End If
End Sub
Private Sub TimerSHIBER_4_OBR_Timer()
shiber.Left = shiber.Left - 50
pp.Visible = False
If shiber.Left <= 0 Then
TimerSHIBER_4_OBR.Enabled = False
pp.Visible = True
pp.Left = 1320
End If
End Sub
Private Sub TimerSHIBER_4_Timer()
shiber.Left = shiber.Left + 50
If shiber.Left >= 1300 Then
TimerSHIBER_4.Enabled = False
TimerSHIBER_4_OBR.Enabled = True
End If
End Sub
Private Sub Timershiber_obr_Timer()
shiber.Left = shiber.Left - 50
If shiber.Left <= 0 Then
Timershiber_obr.Enabled = False
End If
End Sub
Private Sub Timershiber_Timer()
shiber.Left = shiber.Left + 50
If shiber.Left >= 1300 Then
Timershiber.Enabled = False
Timershiber_obr.Enabled = True
End If
End Sub
Private Sub Timershiber_2_Timer()
shiber.Left = shiber.Left + 50
If shiber.Left >= 1300 Then
Timershiber_2.Enabled = False
Timershiber_2_OBR.Enabled = True
End If
End Sub
Private Sub Timervygr_obr_Timer()
VYGR.Visible = False
gotov.Visible = True
VYGR.Left = VYGR.Left - 550
If VYGR.Left <= 8000 Then
Timervygr_obr.Enabled = False
End If
End Sub
Private Sub TimerVYGR_Timer()
VYGR.Visible = True
VYGR.Left = VYGR.Left + 250
If VYGR.Left >= 10000 Then
TimerVYGR.Enabled = False
Timervygr_obr.Enabled = True
End If
End Sub
Private Sub TimerZR_2_Timer()
ZR.Left = ZR.Left + 30
ZR.Visible = True
If ZR.Left >= 4500 Then
TimerZR_2.Enabled = False
R.Visible = True
Timershiber_2.Enabled = True
TimerPP_2.Enabled = True
ZR.Visible = False
TimerZRIMC_2.Enabled = True
imc.Visible = False
ZRIMC.Left = 4500
ZRIMC.Top = 3000
End If
End Sub
Private Sub TimerZR_4_Timer()
ZR.Left = ZR.Left + 30
ZR.Visible = True
If ZR.Left >= 5000 Then
TimerZR_4.Enabled = False
TimerPOZIMC.Enabled = True
End If
End Sub
Private Sub TimerZR_OBR_Timer()
ZR.Left = ZR.Left - 50
ZR.Top = ZR.Top - 20
ZR.Visible = False
R.Visible = True
If ZR.Left <= 3500 Then
ZR.Left = 3500
If ZR.Top <= 2300 Then
TimerZR_OBR.Enabled = False
End If
End If
End Sub
Private Sub TimerZR_Timer()
ZR.Top = ZR.Top + 50
ZR.Visible = True
ZR.Left = ZR.Left + 30
TimerPPz_OBR.Enabled = True
If ZR.Top >= 2700 Then
ZR.Top = 2700
If ZR.Left >= 4500 Then
TimerZR.Enabled = False
imc.Visible = False
TimerZRIMC.Enabled = True
TimerZR_OBR.Enabled = True
End If
End If
End Sub
Private Sub TimerZRIMC_2_Timer()
ZRIMC.Visible = True
ZRIMC.Left = ZRIMC.Left + 30
If ZRIMC.Left >= 5520 Then
TimerZRIMC_2.Enabled = False
ZRIMC.Visible = False
ZRIMC.Left = 4500
imc.Visible = True
Timerpimc2.Enabled = True
End If
End Sub
Private Sub TimerZRIMC_4_Timer()
ZRIMC.Visible = True
ZRIMC.Left = ZRIMC.Left + 30
If ZRIMC.Left >= 5520 Then
TimerZRIMC_4.Enabled = False
TimerPOZIMC2.Enabled = True
End If
End Sub
Private Sub TimerZrimc_obr_Timer()
ZRIMC.Left = ZRIMC.Left - 150
ZRIMC.Visible = False
imc.Visible = True
If ZRIMC.Left <= 4500 Then
ZRIMC.Left = 4500
ZRIMC.Top = ZRIMC.Top - 150
If ZRIMC.Top <= 2700 Then
TimerZrimc_obr.Enabled = False
End If
End If
End Sub
Private Sub TimerZRIMC_Timer()
ZRIMC.Top = ZRIMC.Top + 50
ZRIMC.Visible = True
If ZRIMC.Top >= 3000 Then
ZRIMC.Top = 3000
ZRIMC.Left = ZRIMC.Left + 50
If ZRIMC.Left >= 5500 Then
TimerZRIMC.Enabled = False
TimerZrimc_obr.Enabled = True
Timerpimc2.Enabled = True
End If
End If
End Sub