Как пользовательская форма может прервать выполнение макроса в VBA

Question

Я новичок в программировании VBA

Я хотел создать загрузочную форму, которая будет зацикливать изображение, чтобы пользователь думал, что инструмент все еще выполняется. но моя проблема в том, что во время userform.show формы загрузки пользовательская форма и макрос не выполняются одновременно.

Я пробовал это:

Public Sub UserForm_Initialize()

    MinutesElapsed = Format((Timer - StartTime) / 86400, "hh:mm:ss")
    Call DemoProgress7
    frm_NDCProgress.lbl_CurrentTask = "L O A D I N G . . . . "
    frm_NDCProgress.Label4 = "Please wait"
    frm_NDCProgress.Label3 = "Please wait"

End Sub

Sub DemoProgress7()


    Dim intIndex As Integer
    Dim sngPercent As Single
    Dim intMax As Integer
    Dim intRepeat As Integer

    intMax = 1000
    For intRepeat = 1 To 30
        For intIndex = 1 To intMax
            sngPercent = intIndex / intMax
            ProgressStyle9 sngPercent
           DoEvents         
        Next
    Next

End Sub

Sub ProgressStyle9(Percent As Single)

  frm_NDCProgress.imgXPMarker.Left = frm_NDCProgress.imgXPCover.Left + (frm_NDCProgress.labXPBackground.Width * Percent)

End Sub

'this is the the module where the main function exist
Public Function MainDelete()

frm_NDCProgress.Show (False)

   'My code that will delete values and generate values in the excel sheet.
    frm_NDCProgress.lbl_CurrentTask = "Executed successfully"

End Sub