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

End Sub

Private Sub TimerZRIMC_4_Timer()

ZRIMC.Visible = True

ZRIMC.Left = ZRIMC.Left + 30

If ZRIMC.Left >= 5520 Then

TimerZRIMC_4.Enabled = False

TimerPOZIMC2.Enabled = True

End If

End Sub

Private Sub TimerZrimc_obr_Timer()

ZRIMC.Left = ZRIMC.Left - 150

ZRIMC.Visible = False

imc.Visible = True

If ZRIMC.Left <= 4500 Then

ZRIMC.Left = 4500

ZRIMC.Top = ZRIMC.Top - 150

If ZRIMC.Top <= 2700 Then

TimerZrimc_obr.Enabled = False

End If

End If

End Sub

Private Sub TimerZRIMC_Timer()

ZRIMC.Top = ZRIMC.Top + 50

ZRIMC.Visible = True

If ZRIMC.Top >= 3000 Then

ZRIMC.Top = 3000

ZRIMC.Left = ZRIMC.Left + 50

If ZRIMC.Left >= 5500 Then

TimerZRIMC.Enabled = False