Question

VB没法打开剪贴板的问题

就是有一段程序，之前执行时半点问题都没有，调试也顺利。但最近突然出现“521：不能打开剪贴板”的错误。更好玩的是设置断点（无论哪里设断点）以后就执行成功，只是不设置断点就错误521，究竟怎么回事？
程序部分源代码：

Private Function o_calc() As Double
On Error GoTo ErrO_calc
Dim res
ExecuteLine "a=" + CStr(st0)
ExecuteLine "b=" + CStr(st1)
ExecuteLine "c=" + CStr(st2)
ExecuteLine "d=" + CStr(st3)
ExecuteLine "e=" + CStr(st4)
ExecuteLine "f=" + CStr(st5)
ExecuteLine "x=" + CStr(st6)
ExecuteLine "y=" + CStr(st7)
ExecuteLine "z=" + CStr(st8)
ExecuteLine "func=" + expression
ExecuteLine "Clipboard.SetText CStr(func)"
res = CDbl(Clipboard.GetText)
o_calc = res
Exit Sub
ErrO_calc:
MsgBox Err.Description
End Sub
其中ExecuteLine是使用EbExecuteLine函数执行VB语句，没有问题。st0到st8都是变量。expression是执行表达式，用的是sin(x)（也肯定没问题）就是非常奇怪地出现错误

Answer 1

神奇的问题。哈哈
时不时执行太快的没反应过来。。
DELAY一点时间试试。