请问VB窗口什么情况下用vbmodal显示会悬挂死？？？

如下这断代码    Dim fldr As Folder
    
    DoEvents
    
    MkDir GetCFDriverForm.CFDriver & "\UPLOAD"
    
    Set fldr = fso.GetFolder(GetCFDriverForm.CFDriver & "\UPLOAD")
    Dim fil As file
    DataExgStatus.ProgressBar1.Min = 1
    DataExgStatus.ProgressBar1.Max = fldr.Files.Count + 50
    DataExgStatus.ProgressBar1.Value = 1    
    DataExgStatus.Show vbModal
我用vbmodal则程序不知道为什么会挂死，不用vbmodal则显示在模式窗口下无法显示非模式窗口，哪位指点一下啊！