Добрый вечер!
Есть форма на которой расположено изображение, которое изначально загорожено белым прямоугольником (типа картинки нет).
Хочу что бы по событию, например, нажатием кнопки, прямоугольник плавно сдвинулся вправо, открыв картинку.
Мои пробный саб слишком быстро сдвигает полоску:

Private Sub Кнопка3_Click()
  Dim i As Integer
  For i = 280 To 6804 'от 0,5 до 12 см от левого края
    Me.poloska.Left = i
  Next i
End Sub

Подскажите, пожалуйста, как сделать плавное смещение.

http://www.sql.ru/forum/1258233/plavnoe-poyavlenie-kartinki-na-forme