るきおさん、 魔界の仮面弁士さん、バーバラさん 回答くださり有難うございます。
私が考えたのは下のようなものです。

    Private Sub スタート(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call SrtingSet(0)
        Timer1.Enabled = True   '初回文字セット、タイマースタート
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Left -=  変数    　　　　　'左へ移動
        If Label1.Left < pLength Then
            Label1.Left += pLength       '1行分右へ移動
            Call SrtingSet(pCount)
            pCount += 1
        End If
    End Sub

    Private Sub SrtingSet(ByVal pCount)
        Label1.Text = ""
        For Idx = pCount To Sample.Length - 1
            Label1.Text &= Sample(Idx)
            If Idx = pCount Then
                pLength = Label1.Width                  　　　　'先頭行の長さ
            End If
            If Label1.Height > Me.Width + pLength Then  '全体の長さ
                Exit For
            End If
        Next
    End Sub

バーバラさん オーナードローはまだ習得していないので使っておりません。
参考になるサイトなどありましたら是非お知らせください。

魔界の仮面弁さんの方法は
System.Windows.Forms.Design.ISlectionUIServiceは既にサービスコンテナに存在します。
というメッセージでMarqueeLableは追加されません。
何回か全く新しいフォームを作って試したのですがうまくいきません、もう少し頑張ってみますが取り急ぎ報告いたします。
Tatibanafff