图象24位下显示错误请高手帮小弟我看下

图象24位下显示异常请高手帮我看下
http://download.****.net/detail/wowfiowow/4137199

32位可以，24位load和show貌似没问题，可是一操作RGB再显示出来就异常，麻烦会的给找找原因，我想他支持24和32位

------解决方案--------------------
ReDim p(1 To lWidth, 1 To lHeight) As RGBQUAD
这个定义有问题，在24位模式下不能使用RGBQUAD中的保留字节

在24位模式，
Public Type RGBQUAD '只有bibitcount为1，2，4时才有调色板
Blue As Byte '蓝色分量
Green As Byte '绿色分量
Red As Byte '红色分量
'Reserved As Byte '保留值 24位时，不能有这个参数
End Type

但去掉这个参数，你的代码还有问题，会崩溃