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

End Sub

Private Sub TimerSHIBER_3_Timer()

shiber.Left = shiber.Left + 50

If shiber.Left >= 1300 Then

TimerSHIBER_3.Enabled = False

TimerSHIBER_3_OBR.Enabled = True

End If

End Sub

Private Sub TimerSHIBER_4_OBR_Timer()

shiber.Left = shiber.Left - 50

pp.Visible = False

If shiber.Left <= 0 Then

TimerSHIBER_4_OBR.Enabled = False

pp.Visible = True

pp.Left = 1320

End If

End Sub

Private Sub TimerSHIBER_4_Timer()

shiber.Left = shiber.Left + 50

If shiber.Left >= 1300 Then

TimerSHIBER_4.Enabled = False

TimerSHIBER_4_OBR.Enabled = True

End If

End Sub

Private Sub Timershiber_obr_Timer()

shiber.Left = shiber.Left - 50

If shiber.Left <= 0 Then

Timershiber_obr.Enabled = False

End If