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

End Sub

Private Sub TimerPP_2_Timer()

pp.Left = pp.Left + 50

If pp.Left >= 2600 Then

TimerPP_2.Enabled = False

PPZ.Visible = True

TimerPPZ_2.Enabled = True

End If

End Sub

Private Sub TimerPP_3_Timer()

pp.Left = pp.Left + 50

If pp.Left >= 2600 Then

TimerPP_3.Enabled = False

PPZ.Visible = True

TimerPPZ_3.Enabled = True

R.Visible = True

imc.Visible = True

imc2.Visible = True

End If

End Sub

Private Sub TimerPP_4_Timer()

pp.Left = pp.Left + 50

If pp.Left >= 2600 Then

TimerPP_4.Enabled = False

PPZ.Visible = True

TimerPPZ_4.Enabled = True

End If

End Sub

Private Sub TimerPP_obr_Timer()