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

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