' Что нибудь в роде
Dim nPosition As Integer
Dim strBuffer As String
strBuffer = Caption
nPosition = Len(strBuffer)
' При прокрутке в перед:
nPosition = nPosition - 1
Caption = Right(strBuffer, nPosition)
' При прокрутке назад тоже самое только nPosition увеличивается