Бегущая строка

[SPQR10000]

Приветик всем!
Прошу извинить,что тему тут создал,просто небыло раздела для Вб!
ВОт суть проблемы: как мне сделать бегущую строку в заголовке формы на VB6?
Я когда то сделал ето,но код потерял,а щас забыл его,так как на делфи программирую!
А тут надо сделать срочно прогу,а бегущую строку токо осталось сделать!
ВОт (примерно) я так сейчас сделал,но строка не бежыт
T1.Enabled = True
If Len(Form1.Caption) < 10 Then
Form1.Caption = ((Form1.Caption) + 20) & (Form1.Left + 20)

[Cpluser]

if(string.length<10)
без then
и this.Text вместо Form1.Caption

[SPQR10000]

такс,а как ето все совместить?У меня выбило ошибку в if(string.length<10) (сказало,что вместо точки должно бить "(" )

[Cpluser]

if(this.Text.Length<10)

[SPQR10000]

выбивает ошибку

[SPQR10000]

вот моя вторая наработка

If Len(Form1.Caption) <> 100 Then
Form1.Caption = Left(Form1.Caption, 1) & Right(Form1.Caption, Len(Form1.Caption) - 0) & Right(Form1.Caption, Len(Form1.Caption) + 1)

как мне сделать,чтобы при запуске,когда строка бежит,то не оставались копии АААААА,а чтобы строка уезжала вправо,и симметрично в етоже время выезжала слева-направо по мере исчезновения текста?

[Cpluser]

         string t = "Testik";
          char[] text;
          int i = 0;
        public Form1()
        {
            InitializeComponent();
            text =t.ToCharArray();
        }

private void timer1_Tick(object sender, EventArgs e)
        {
            if (this.Text == t)
            {
                this.Text = string.Empty;
                i = 0;
            }
            this.Text += text[i];
            i++;
        }

Добавте label1

 private void timer1_Tick(object sender, EventArgs e)
        {
            if (label1.Left > -label1.Width)
            {
                label1.Left -= 5;
            }
            else
            {
                label1.Left = this.Width;
            }
        }