VB中回调函数的一个问题
之前碰到一个问题，VB中向一个C++写的DLL中注册一个Callback，C++在调用这个Callback时有些问题，具体问题描述和下面这个帖子中的情况是一样的: http://topic.csdn.net/t/20051104/09/4370840.html
经过尝试以后发现，在VB中写的回调函数必须是用Function关键字，并且，必须要设置返回值，如下：
Public Function Callback () As Long
’TODO: Here
Callback = 0
End Function
如果这个回调中没有声明返回值，并且没有Callback = 0这个情况，就会出现上述帖子中的问题.
相关文档：
VBScript 运行常见错误
如果 VBScript 脚本执行系统无法实施的操作，则会产生 VBScript 运行时错误。只有在运行脚本、为变量表达式赋值或分配内存时，才会产生 VBScript 运行时错误。 以下是65个运行时错误：
错误编号 描述
十进制 十六进制 说明
5 800A0005 无效过程调用或参数
6 800A00 ......
关于ActiveX的教程
Visual Basic是面向对象的程序设计语言，微软公司推出了ActiveX技术，利用ActiveX技术提出的标准，对界面的设计进行了封装，形成了一系列编程控件，即特定功能的程序模块。在程序的设计中，设计人员只需要拖动所需控件到窗体，然后对控件进行属性设置和使用其方法、事件即可，大大减轻了繁琐的程序设计� ......
谁能帮我把这段代码转成Vb的代码，不胜感激，谢谢！
void CTempDlg::OnOK()
{
UpdateData(1);
int nlen=m_edit1.GetLength();
char *username=m_edit1.GetBuffer(nlen);//定义一个新字符串username,长度为nlen，并将m_edit1中的字符串一个个放入到username数组中
char strA[]="90123456 ......
去年曾写过一篇博文，名称叫《用VB无窗口透明Usercontrol编写透明浮动按钮》，该文有一个观点是错误的，即透明无窗口Usercontrol不支持设计时点选。其实，通过在UserControl_HitTest过程里加入HitResult = vbHitResultHit语句，就可以实现设计时的点选了，为此，修改代码如下：
'* ******************* ......
