请问如何在一窗体的标题栏平行滚动显示某一控件的text属性？

利用TIMER控件，每隔一个时间间隔给窗体的标题CAPTION属性赋值

Dim S1 As String, S2 As String
Dim i As Integer, n As Integer
Private Sub Form_Load()
S1 = Space(10)
S2 = "标题栏平行滚动显示"
i = 0
n = Len(S2)
End Sub

Private Sub Timer1_Timer()
i = i + 1
If i > n Then
S1 = Mid(S2, i - n, n)
i = 0
Else
S1 = Space(n - i) & Mid(S2, 1, i)
End If
Me.Caption = S1
End Sub

[此贴子已经被作者于2007-5-9 19:20:33编辑过]