教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索

Option Explicit  
Const Captions As String = "要显示的滚动文字"  

Private Sub Form_Load()  
Timer1.Interval = 200  
End Sub  

Private Sub Timer1_Timer()  
Static N As Integer  
Dim L As Integer, C As String  
L = Int(Me.Width / 220)
C = String(L, "　") + Captions + String(L, "　")  
N = N + 1  
If N > Len(C) - L Then N = 1
Me.Caption = Mid(C, N, L)  
End Sub