EnumWindows выдает исключение

[cousloum]

Есть такой код:

Код: Выделить всё

    Declare Auto Function EnumWindows Lib "user32.dll" Alias "EnumWindows" (ByVal ukazatel As EnumWindowsProc, ByVal param As Long) As IntPtr
    Delegate Function EnumWindowsProc(ByVal hwnd As IntPtr, ByVal lParam As Long) As Boolean
    Private Function Proverka_okna(ByVal hwnd As IntPtr, ByVal lParam As Long) As Boolean
        MsgBox("", MsgBoxStyle.Exclamation, "Предупреждение")
        Return True
    End Function
    Private Sub Okna(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox(EnumWindows(AddressOf Proverka_okna, 0).ToInt32, MsgBoxStyle.Exclamation, "Предупреждение")
    End Sub

Почему-то после вызова EnumWindows в конце вылезает исключение:
Попытка чтения или записи в защищенную память. Это часто свидетельствует о том, что другая память повреждена.
Никак не могу понять с чем это связано?

[FireFenix]

Ошибка в неправильном вызове апи
кури рабочий вариант http://www.visual-basic5.de/vbclassic/d ... wsproc.htm

[Viper]

Потому что должен быть Integer вместо Long.

[cousloum]

Большое спасибо, вы мне очень помогли