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 ......
Microsoft VBScript 运行时错误 '800a0046' 没有权限: 'CreateObject'
显示错误：没有权限: 'CreateObject'
记得将组件加入 Users 组权限（如果将 C 盘去掉 Users 组权限的话）。
开始。。。运行。。。regsvr32 jscript.dll (命令功能： 修复Java动态链接库)
开始。。。运行。。。regsvr32 vbscript.dll(� ......
转自:http://www.pconline.com.cn/pcedu/empolder/gj/vb/0506/644702.html
Time
返回系统时钟的当前时间。
Date
返回系统时钟的当前日期。
Now
返回代表当前日期和时间的编码值。该函数经常用作其它系统时钟函数的参数。
Hour(Time)
返回指定时间的小时部分（0到23）。
Minute(Time)
返回指定时间的分钟部� ......
很多时候,我们不想一开始就显示滚动条,当文本到达指定行数文本框无法完全显示的时候再显示它,由于Scrollbar属性是只读的,无法在运行时的代码中改变这个属性,只能使用下面的API实现这个功能:
Public Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
......
Private Sub PrintTxt(txt As String, ConWidth As Long, LeftPosition As Long)
Dim str As String
Dim str1 As String
Dim len1 As Long
str = txt
len1 = ConWidth
&nbs ......
