怎样把窗体模式打开后继续执行代码,该如何处理

怎样把窗体模式打开后继续执行代码
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
With Toolbar1
  Select Case Button.Index
  Case 2
  frmfind.Caption = "选择单据"
  frmfind.Show 1
  Toolbar1.Buttons(4).Enabled = True
  End Select
End With
以上很简单的代码，在frmfind窗体关闭后，要设置工具栏的第4个按钮可用。关闭frmfind窗体后，怎么Toolbar1.Buttons(2).Enabled = True就是执行不了呢。
但在逐语句调试状态下，就可执行。究竟错在哪呢？

求高手指点。

------解决方案--------------------
这个不可能，模式打开的窗体，必须得到响应后其后的代码才能执行
------解决方案--------------------
估计是你的按钮索引搞错了吧
------解决方案--------------------
没明白怎么会有这事。
还有，究竟是Buttons(4)还是Buttons(2)？你前后说的不一样…………


你在Toolbar1.Buttons(4).Enabled = True的前后各加一句在别的窗体上输出点东东，看能不能执行到。
（比如，frmfind关闭后，有某个窗口一定不会被关闭的，就在它上面添加两个Label，在Toolbar1.Buttons(4).Enabled = True的前后各用一条语句来改变它的内容）
------解决方案--------------------
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
With Toolbar1
Select Case Button.Index
Case 2
frmfind.Caption = "选择单据"
frmfind.Show 1
doevents '试试看
Toolbar1.Buttons(4).Enabled = True
End Select
End With
------解决方案--------------------
LZ的代码是正确的，可能是索引搞错了，使用Key属性作为索引比较不容易搞错