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

If pimc2.Left <= 5520 Then

pimc2.Left = 5520

pimc2.Top = pimc2.Top - 350

If pimc2.Top < 3000 Then

Timerpimc2_obr = False

End If

End If

End Sub

Private Sub Timerpimc2_Timer()

pimc2.Top = pimc2.Top + 100

pimc2.Left = pimc2.Left + 100

pimc2.Visible = True

imc2.Visible = False

If pimc2.Top >= 4000 Then

pimc2.Top = 4000

If pimc2.Left >= 8000 Then

Timerpimc2.Enabled = False

Timerpimc2_obr.Enabled = True

End If

End If

End Sub

Private Sub TimerPOZIMC_Timer()

imc.Left = imc.Left + 50

R.Visible = True

R.Left = 3840

TimerSHIBER_4.Enabled = True

TimerPP_4.Enabled = True

If imc.Left >= 5250 Then

TimerPOZIMC.Enabled = False