vb.netでテキストボックス内の文字列を右から左へ動かすプログラム

vb.net初心者です。テキストボックス内の文字列を右から左へ動かすプログラムを作っています。

右から左へ動かせるのですがどうもスクロールが1回だけで左端までいったら右端に戻って左へスクロールするといった繰り返しが起こりません。どうすればいいのか教えてください。急いでいますのでソースコードを提示しつつお願いします。
問題のコード
Private Sub Timer1_Tick(ByVal sender As Object, e As EventArgs) Handles Timer1.Tick
Dim scloltext As String
Dim objG As Graphics '描画した文字列を格納する

objG = TextBox5.CreateGraphics() 'textbox5に画像を挿入する
objG.Clear(TextBox5.BackColor) 'objGの描画サーフェイス全体をリセットしてtextbox5の背景色で塗りつぶす
objG.DrawString(TextBox5.Text, TextBox5.Font, New SolidBrush(TextBox5.ForeColor), scloltext, 0) 'textbox5に描画する文字列やフォントや色えお設定する
scloltext -= 1 '文字列が移動する方向を決める
If scloltext > TextBox5.Width Then 'scloltextがtextboxの幅よりも大きい場合以下の処理を実行する
scloltext = 0 'scloltextに0を代入する
End If
objG.Dispose() 'objGを開放する
End Sub

No.1 回答者： 細うどん 回答日時： 2017/12/01 14:52

先ずは上司（先生）辺りに相談して納期を遅らせましょう。

変数名や宣言する型等おかしな部分はそれなりに有りますが、
期待通りの結果が得られない要因は
x座標を初期化する際の判定分です。
書き出し位置のx座標を1サイクル毎にマイナスしているのにtext boxのwidthを上回るワケがありません。

以上ご参考まで