jackyq

Private Sub UserForm_Activate()
        Dim A As Integer
        Dim Q As Long
        Dim TIME As String
        TIME = Timer
            ' Q = 100000000  error
        For A = 0 To 300 Step 30
            Label2.Width = A
            Q = 100000000  'right
             'wait (0.5)
             DoEvents
                Do While Q > 0
                    If Q Mod 1000000 = 0 Then
                       DoEvents
                    End If
                    Q = Q - 1
                Loop
                If Q < 0 Then Unload UserForm1
        Next
        MsgBox "DONE" & Timer - TIME & "Q=" & Q
    End Sub