Курсовая работа: Трасса сборки печатных плат

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