毛主席

窗体标题滚动的代码
管理提醒：
在窗体加入时间控件  把下面的代码直接粘贴到代码去就可以了



--------------------------------------------------------------------------------



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