[RESOLVED] VB.Net и ускорение работы анимаций…

[NeverGone]

Сразу предупреждаю, здесь может содержаться дико кривой код. Просьба воздержаться от нецензурных выражений и забрасывания мониторов гнилыми помидорами

————————————————————————————————————————————————————————————————————

Имеется вот такой код отрисовки анимации.

Код: Выделить всё

        Do While imgInternet.Left > -77
            imgInternet.Top -= 8
            lblInternet.Top -= 8
            imgInternet.Left -= 8
            lblInternet.Left -= 8

            imgMail.Top -= 8
            lblMail.Top -= 8
            imgMail.Left += 8
            lblMail.Left += 8

            Me.Refresh()
        Loop

Диагноз: дико тормозит. Если вместо -= 8 писать -= 16 или -= 32 — дергается. Тоже некрасиво.
Знающие люди, подскажите, можно ли как-нибудь добиться более быстрой работы таких анимаций?
Заранее спасибо.

[MIT]

Если Me.Refresh() — это типа Invalidate, то надо обновлять не весь экран, а только ту часть, которая реально нуждается в перерисовке.

[NeverGone]

Я кусок кода вырезал.
Там значки по всему экрану. 15 штук. Получается, что надо перерисовывать всё.

[MIT]

Попахивает идиотизмом.