Private Sub Text1_MouseMove(Button As Integer, Shift As _
    Integer, X As Single, Y As Single)
    Call ScrollToolTipText(Text1)
End Sub

Private Function ScrollToolTipText(obj As Object)
Dim strToolTip As String

    strToolTip = obj.ToolTipText
    If Not 0 = Len(strToolTip) Then
        strToolTip = (Right$(strToolTip, Len(strToolTip) - _
            1)) & Left$(strToolTip, 1)
        obj.ToolTipText = strToolTip
    End If
End Function