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

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