Get Internet Connection State by Using Wininet

Option Explicit
Private Declare Function InternetGetConnectedState Lib "Wininet" _
 (ByRef dwflags As Long, ByVal dwreserved As Long) As Long
Private Const INTERNET_CONNECTION_CONFIGURED As Long = &H40
Private Const INTERNET_CONNECTION_LAN As Long = &H2
Private Const INTERNET_CONNECTION_MODEM As Long = &H1
Private Const INTERNET_CONNECTION_PROXY As Long = &H4
Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20
Private Const INTERNET_RAS_INSTALLED As Long = &H10
'local variable(s) to hold property value(s)
Private mvarGetConnectionType As String 'local copy
Public Property Get GetConnectionType() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.GetConnectionType
 GetConnectionType = mvarGetConnectionType
End Property
Public Function GetInternetConnectedState() As Boolean
 Dim dwflags As Long 'Returns which Connection type
 Dim RetCode As Boolean 'If is connected
 
 'dwreserved needs to be set to 0&
 RetCode = InternetGetConnectedState(dwflags, 0&)
 Select Case RetCode
 Case dwflags And INTERNET_CONNECTION_CONFIGURED
 mvarGetConnectionType = "Local system has a valid connection to the Internet, but it might or might not be currently connected."
 Case dwflags And INTERNET_CONNECTION_LAN
 mvarGetConnectionType = "Local system uses a local area network to connect to the Internet."
 Case dwflags And INTERNET_CONNECTION_MODEM
 mvarGetConnectionType = "Local system uses a modem to connect to the Internet."
 Case dwflags And INTERNET_CONNECTION_PROXY
 mvarGetConnectionType = "Local system uses a proxy server to connect to the Internet."
 Case dwflags And INTERNET_CONNECTION_OFFLINE
 mvarGetConnectionType = "Local system is in offline mode."
 Case dwflags And INTERNET_RAS_INSTALLED
 mvarGetConnectionType = "Local system has RAS installed."
 End Select
 GetInternetConnectedState = RetCode
End Function
Useage:
Private Sub Form_Load()
 Dim test As New Class1
 Me.AutoRedraw = True
 Print test.GetInternetConnectedState
 Print test.GetConnectionType
End Sub