Плавная прокрутка текста в строке заголовка

[Admin]

Кто мне подскажет как сделать плавную прокрутку текста в строке заголовка своей программы? Заранее благодарю!

 

[Normann]

' Что нибудь в роде
Dim nPosition As Integer
Dim strBuffer As String

strBuffer = Caption
nPosition = Len(strBuffer)

' При прокрутке в перед:
nPosition = nPosition - 1
Caption = Right(strBuffer, nPosition)

' При прокрутке назад тоже самое только nPosition увеличивается

 

[Admin]

А куда нужно этот код вкинуть? Я вкинул в таймер, чето ниче не получилось!

 

[Normann]

Зачем тебе таймер? Покажи код всей формы

 

[Admin]

Все, я допер! То что нужно! Спасибо!