Help: Questions about doevents, online!

aspirinum

During the running of my program, there is time to wait in a loop. In the loop, I mostly added doevents to return control to the system. But some machines will appear if you do not click my program, the program will not continue to run, after moving the program is normal (and then run), what is the reason, can it be caused by doevents? Thank you!

asukajjj

Code

aspirinum

Do Until intTestedNum> intTestNum
    Call addSam ()
    Application.DoEvents ()
    If stepI (0) = 51 And stepI (1) = 51 And stepI (2) = 51 And stepI (3) = 51 then exit do
Loop

addsam contains the status query code, and some loops also have doevents

aspirinum

Sub addSam ()
        Dim intDir As Integer
        Dim intRI As Integer
        Dim I As Integer
        '-------------------------------
        'Query the status of each mechanism and act in accordance with the sequence of actions
        '--------------------------------
        Select Case stepI (0)
            Case 0
                Call ZeroInjector (&HFC)
                stepI (0) = 1
                For intRI = intEndpointStartReagent To intEndpointEndReagent-1
                    If intAddSamNum + intEndpointStart = intSameReagent (intRI) Then
                        If intAddSamNum> = 1 Then
                            If intSamAddWater <2 then sngWashTimeFC = 3
                                Exit For
                            Else
                                sngWashTimeFC = 1.1
                            End If
                        End If
                        If boolSamBlank (intNowReagentFC) = False Then
                            sngWashTimeFC = 3
                        Else
                            sngWashTimeFC = 1.1
                        End If
                        Exit For
                    End If
                Next intRI
            Case 1
Below are similar codes