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

NIMC2.Top = 1320

End Sub

Private Sub start_1_Click()

Timershiber.Enabled = True

Timerpp.Enabled = True

POZPP.Visible = True

End Sub

Private Sub TimerPIMC2_4_Timer()

pimc2.Top = pimc2.Top + 100

pimc2.Left = pimc2.Left + 100

pimc2.Visible = True

If pimc2.Top >= 4000 Then

pimc2.Top = 4000

If pimc2.Left >= 8000 Then

TimerPIMC2_4.Enabled = False

TimerVYGR.Enabled = True

imc2.Visible = True

imc2.Left = 5880

imc2.Top = 2160

pimc2.Visible = False

pimc2.Left = 5520

pimc2.Top = 3000

End If

End If

End Sub

Private Sub Timerpimc2_obr_Timer()

pimc2.Visible = False

TimerVYGR.Enabled = True

pimc2.Left = pimc2.Left - 350