Tạo dòng chữ chạy trong VB

Ý tưởng của mình là cho một label có dòng chữ chạy như mấy bảng pano. Code mình viết như sau, các bạn tham khảo.

Code:

 Private Sub tmrTTCty_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrTTCty.Tick
        str2 = str.Substring(0, 1)
        str1 = str.Substring(1, lenstr - 1)
        lbTTCty.Text = str1 & str2
        str = lbTTCty.Text
    End Sub

Trong đó:
- str: chuỗi nội dung chạy
- lenstr: chiều dài của chuỗi str
Đây là sự kiện Tick của timer, các bạn muốn dòng chữ chạy nhanh hay chậm thì chỉnh giá trị Interval.

Cái này mình viết trong VB.Net, với các ngôn ngữ khác các bạn cũng làm tương tự!
Chúc học tốt.

Mình vừa làm một demo nho nhỏ về việc tạo chữ chạy trong vb.net. Ý tưởng của mình là cho từng kí tự của chuỗi xuất hiện và chạy từ phải sang trái cho đến khi hết chuỗi.
Các bạn tham khảo và góp ý nhé!

Link demo

Code:

http://www.mediafire.com/?3p929m4xratrb22

Chúc vui!