主题：请大侠，帮我看看，这段自定义函数代码，怎么一调用，系统就奔溃啊？

检查出来了，是代码写错了，Formula对象要通过Grid对象创建，而不能通过Frame对象创建，正确的代码应该是这样的：

'Formula对象的用法
Function FFL(Formula)
If Formula.IsLastBar <> 1 THEN Exit Function
Set xGrid=UserFrame1.GetGridByName("Window5")
'Set xFormula=xGrid.GetFormulaByName("MyMa")
xCount=xGrid.FormulaCount
Dim i
i=0
If i=0 Then
MsgBox xCount
i=i+1
End If
End Function