Столкнулся с такой проблемой: Двигаю Label по форме, код:
- Код: Выделить всё
Private Sub tmrScroll_Timer()
Label1.Move Label1.Left, Label1.Top - 10, Label1.Width, Label1.Height
If Label1.Top <= -5100 Then Label1.Move Label1.Left, 4500, Label1.Width, Label1.Height
End Sub
Interval у Timer'a равен 20.
При этом создается субъективное впечатление, что он "мигает", причем как бы по горизонтали появляются полоски =)
В чем же дело?
