那位SHDocVw.ShellWindows用过的就帮帮我吧，cup资源耗尽，不知道为什么

Question

'1、类名IEWindows
Private WithEvents winShell As SHDocVw.ShellWindows
Public Event IEWindowRevoked()Private Sub winShell_WindowRegistered(ByVal lCookie As Long)
  Refresh_Col
  Do While bRefreshing
     DoEvents
  Loop
  RaiseEvent IEWindowRegistered
  
End SubPrivate Sub winShell_WindowRevoked(ByVal lCookie As Long)
  Refresh_Col
  Do While bRefreshing
     DoEvents
  Loop
  RaiseEvent IEWindowRevoked
End Sub
'在一个form1窗体中
Private Sub Form_Load()
    Set IEWin = New IEWindows
End Sub不知道为什么老是winShell_WindowRegistered事件中运行，
导致cpu资源占用99%
但有不是每次打开窗口都会，如果打开新窗口的速度快，就很容易出现这问题
是不是那里没有释放，还是怎么回事？

Answer 1

Do While bRefreshing
     DoEvents
  Loop
bRefreshing是什么来的？