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

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