При добавлении каритнки на задний план формы, движение объектов на форме сильно затормаживается

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Ракета_В_Право = True And Not Ракетка.Left >= Me.Width - Ракетка.Width Then
            Ракетка.Left += 5
        ElseIf Ракета_В_Лево = True And Not Ракетка.Left <= 0 Then
            Ракетка.Left -= 5
        End If
 
        ' Столкновение с карарем
        For Each касарь As Control In Me.Controls
            If TypeName(касарь) = "PictureBox" Then
                If (Mid(касарь.Name, 1, касарь.Name.Length - 1) = "НовыйКасарь" Or Mid(касарь.Name, 1, касарь.Name.Length - 2) = "НовыйКасарь") AndAlso Trah_Tararah(Мяч, касарь) Then
                    МячИгрик = -МячИгрик
                    касарь.Dispose()
                    PlayMusicFromStream("kasar")
                End If
            End If
        Next касарь
 
        ' Столкновение с границами формы
        If Мяч.Top < 1 Or Мяч.Top > Me.Height Then МячИгрик = -МячИгрик : ЗвукУдара()
 
        If Trah_Tararah(Мяч, Ракетка) Then
            МячИгрик = -МячИгрик
            ПоцыкМатерица()
        End If
        If Мяч.Left > Me.Width - Мяч.Width Or Мяч.Left < 1 Then
            МячИкс = -МячИкс
            ЗвукУдара()
        End If
 
        ' Мяч ушел вниз
        If Мяч.Top > Me.Height Then MsgBox("Конец игры!")
 
        Мяч.Left += МячИкс
        Мяч.Top -= МячИгрик
    End Sub

        Me.DoubleBuffered = True