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

Private Sub Timershiber_Timer()

shiber.Left = shiber.Left + 50

If shiber.Left >= 1300 Then

Timershiber.Enabled = False

Timershiber_obr.Enabled = True

End If

End Sub

Private Sub Timershiber_2_Timer()

shiber.Left = shiber.Left + 50

If shiber.Left >= 1300 Then

Timershiber_2.Enabled = False

Timershiber_2_OBR.Enabled = True

End If

End Sub

Private Sub Timervygr_obr_Timer()

VYGR.Visible = False

gotov.Visible = True

VYGR.Left = VYGR.Left - 550

If VYGR.Left <= 8000 Then

Timervygr_obr.Enabled = False

End If

End Sub

Private Sub TimerVYGR_Timer()

VYGR.Visible = True

VYGR.Left = VYGR.Left + 250

If VYGR.Left >= 10000 Then

TimerVYGR.Enabled = False

Timervygr_obr.Enabled = True

End If