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

End If

End Sub

Private Sub TimerPPZ_Timer()

PPZ.Left = PPZ.Left + 30

If PPZ.Left > 3000 Then

PPZ.Top = PPZ.Top - 30

If PPZ.Left > 3530 Then

TimerPPZ.Enabled = False

R.Visible = False

TimerZR.Enabled = True

End If

End If

End Sub

Private Sub Timershiber_2_OBR_Timer()

shiber.Left = shiber.Left - 50

pp.Visible = False

If shiber.Left <= 0 Then

Timershiber_2_OBR.Enabled = False

pp.Visible = True

pp.Left = 1320

End If

End Sub

Private Sub TimerSHIBER_3_OBR_Timer()

shiber.Left = shiber.Left - 50

pp.Visible = False

If shiber.Left <= 0 Then

TimerSHIBER_3_OBR.Enabled = False

pp.Visible = True

pp.Left = 1320