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

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()