Check PC connect to internet ?(continue)

Hi, friends

I programming in VB6 like this:

Public Declare Function InternetGetConnectedState Lib "wininet.dll" (lpdwFlags
as Long, byval dwReserved as Long) as Boolean
Dim ll as long
Dim ret as Boolean
ret = InternetGetConnectedState(ll, 0)


ret is always False.
and I want to see what value INTERNET_CONNECTION_LAN is.

Msgbox INTERNET_CONNECTION_LAN

it display nothing. Then I try this InternetAttemptConnect(0),
it return nothing too. If I need include some others?

Thanks
zys