VB自定义函数问题　[金字塔]

1.软件的示例 DefaultProject--模块--Function下第一个例子 Function TriangleShape(Formula,Cyc,SCyc,ECyc)每次打开管理面板--高级 都报 编译错误--1002.我仔细检查过似乎没有语法错误，即使把函数体移除，只保留一个空壳还是同样报错。如图

此主题相关图片如下：1001.png

2.示例函数 CU_MA1和CU_MA2，我编入指标公式，测试正常，但在技术分析界面始终显示为0. 在VB中用MsgBox 显示从金字塔中读取数据正常，如图

此主题相关图片如下：1002.png


此主题相关图片如下：1003.png

请问是哪里出问题呢？谢谢

TriangleShape这个函数你自己胡乱修改他源代码了，原始代码是这样的。

Function TriangleShape(Formula,Cyc,SCyc,ECyc)

'    'msgbox cyc & "-" & scyc & "-" & ecyc

' '该函数计算当前位置图形是否是三角形突破，如果是则返回1，否则返回0。该函数只有在选股时才能使用。

' TriangleShape=0

' 

' '如果是分时数据或者分笔成交那么直接返回

' If Formula.ParentGrid.DataType = 0 or Formula.ParentGrid.CycType = 10 Then

'  Exit Function

' End If

vba启动了没，切换品种试试呢，另外直接在函数里把返回值强制返回一个比如10再看看。

1.第一个问题，我那个改动是故意的，就是看看没有函数主题的时候是否报错，结果当然是报错。我把程序重装一遍，保证没有改动，还是这样。不过我估计问题是这样：我的系统是64位，不小心装了32位的金字塔，现在改为64位，出现新问题：进入调试，提示“你必须安装windows脚本调试补丁....”“已成功安装....”，重启机器，再来，还是同样的问题。请指教该如何做？

2.安装64位后，自定义函数可以用了，显示的效果和预期的一样！

64位VB启动后不能停止，停下再启动就报出现异常（如图）。32位的则没有这个问题

此主题相关图片如下：1004.png