VB里Boolean类型可能导致的奇怪现象

众所周知，C语言里，True是1，False是0。

但是在VB里，True是-1，False是0，而且是以16位（2个字节）的数值形式存储的。

当转换其他的数值类型为 Boolean 值时，0 会转成 False，而其他的值则变成 True。当转换 Boolean 值为其他的数据类型时，False 成为 0，而 True 成为 -1。

这样，在使用API或对象时，可能导致某些True ≠ True的奇怪现象。

Boolean型属性的值是1，而显示为True。如：

debug.print Obj.bool ，打印为 True，

但是 debug.print Obj.bool = True 为False，因为True 是 -1，而Obj.bool是1。

所以，判断语句不要这样写：

if (Obj.bool = True) Then

要这样写：

if Obj.bool Then

另外，if (Cbool(Obj.bool)  = True) Then 也不行，因为Cbool并不改变一个已经是Boolean类型的变量的值（赋值语句会改变）。