怎样把窗体模式打开后继续执行代码
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属性作为索引比较不容易搞错