Allora... premesso che i caratteri scorrono da destra verso sinistra, io userei una Label anziché una TextBox.
Poi userei un carattere MONOSPACE (come Courier New ) in modo che tutti i caratteri occupino lo stesso spazio nella label
codice:
'questo è il numero di caratteri Monospace che stanno nella Label
Dim NumChar As Integer = 15
Dim Testo As String = Space(NumChar) & "Sono le ore 15:45" & Space(NumChar)
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Static iCount As Integer = -1
iCount = iCount + 1
'testo scorrevole
If Testo.Length - iCount >= NumChar Then
Label1.Text = Testo.Substring(iCount, NumChar)
Else
iCount = -1
End If
End Sub
Bye