KERNEL32.DLL crashes. HELP!!

[ethanwa]

Ok, Win98SE CLEAN INSTALL. No extras or updates or anything. Straight out of the box. Simple code and I get crashes!

What am I doing wrong?

Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: [url]http://www.allapi.net/[/url]
    'E-Mail: [email][email protected][/email]
    If InternetCheckConnection("http://www.allapi.net/", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
        MsgBox "Connection to [url]http://www.allapi.net/[/url] failed!", vbInformation
    Else
        MsgBox "Connection to [url]http://www.allapi.net/[/url] succeeded!", vbInformation
    End If
End Sub

Here's the crash report:

PROJECT1 caused an invalid page fault in
module KERNEL32.DLL at 0167:bff7b992.
Registers:
EAX=004121e8 CS=0167 EIP=bff7b992 EFLGS=00010212
EBX=000000c8 SS=016f ESP=0063f6f0 EBP=0063f714
ECX=000000c8 DS=016f ESI=000000c8 FS=1c87
EDX=0041215c ES=016f EDI=0041212c GS=0000
Bytes at CS:EIP:
80 3e 04 74 0f 33 c0 50 50 50 68 05 00 00 c0 e8
Stack dump:
0041215c 76291f62 000000c8 0041212c 0041215c 00000000
00000000 00000510 00000001 004121e4 76291d1b 004121e4
004121e8 00000000 004121ec 00510ef4