这个好象是跑马灯吧?
Private Const txtMsg = "asdadffsgfdgdgdgrtyhfghfhfjhgfjghjghretewteyrtjgyjtrtyryrutuytrhjtyutututiytitjt jtsfdsfutufhfgtuerthgfhfytyiftutikkg"
Private Sub Timer1_Timer()
Static i As Long
i = i + 1
i = IIf(i >= Len(txtMsg) - 30, 1, i)'每次显示30个字符
Label1.Caption = Mid(txtMsg, i, 30)
End Sub