Dim xz As Byte
Sub 小爪滾動(dòng)()
    xz = 1
    Me.Caption = "固定資產(chǎn)折舊表-----牛牛                   "
    Do
        For j = 1 To 90000   '這個(gè)數(shù)字根據(jù)需要修改
            DoEvents
        Next j
        Me.Caption = Mid(Me.Caption, 2, Len(Me.Caption) - 1) & Left(Me.Caption, 1)

    Loop Until xz = 0
Me.Caption = ""
End Sub
Private Sub UserForm_Activate()
小爪滾動(dòng)
End Sub