Как использовать Adler32 в VB?

[drHass]

Кто подскажет, как в VB объявить функцию Adler32 из zlib.dll (считает контрольную сумму) и как ею пользоваться? На сайте http://www.zlib.net/manual.html она описана только для СИ и объявляется так:
uLong adler32 (uLong adler, const Bytef *buf, uInt len);

У меня массив байт. Объявил в проекте
Private Declare Function adler32 Lib "zlib1.dll" _
(adler As Long, buf As Any, lenbuf As Long) As Long и пытаюсь подсчитать сумму так:
tm& = adler32(n&, bt(0), ubound(bt)+1)
Вылетаю. Что не пробовал, все равно вылетаю (ошибка защиты).

Помогите, плз!

[GSerg]

zlib бывает двух модификаций - одна cdecl, другая stdcall. У тебя, по всей видимости, cdecl. А нужна-таки stdcall. Ищем, качаем Но перед этим первый и последний параметр объявляем ByVal, а не то, что у тебя

[drHass]

Спасибо. Надо было не zlib1 а zlib.