你的声明是对的
ICDecompress我没用过改成这样试试:
dim EncodeBuf(0 to 1000) as byte,DecodeBuf(0 to 1000) as byte
如果不行再:
lRet = ICDecompress(hIC, DecodeFlags, SourceBitMap, ByVal VarPtr(EncodeBuf(0)), DescBitMap, ByVal VarPtr(DecodeBuf(0)))