#Region "InternetAPIDeclaration"
    Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Int32, _
    ByVal dwReserved As Int32) As Boolean

    Private Enum Flags As Integer
        'Local system uses a LAN to connect to the Internet.
        INTERNET_CONNECTION_LAN = &H2
        'Local system uses a modem to connect to the Internet.
        INTERNET_CONNECTION_MODEM = &H1
        'Local system uses a proxy server to connect to the Internet.
        INTERNET_CONNECTION_PROXY = &H4
        'Local system has RAS installed.
        INTERNET_RAS_INSTALLED = &H10
    End Enum
    Private Const ERROR_SUCCESS = &H0
    Private Const ERROR_INVALID_PARAMETER = &H87

    Private mlConnection As Int32
#End Region
  

    Private Function DetectConnectionType() As String
        Dim lngFlags As Long

        If InternetGetConnectedState(lngFlags, 0) Then
            'connected.
            If lngFlags And Flags.INTERNET_CONNECTION_LAN Then
                'LAN connection.
                Return ("LAN connection.")
            ElseIf lngFlags And Flags.INTERNET_CONNECTION_MODEM Then
                'Modem connection.
                Return ("Modem connection.")
            ElseIf lngFlags And Flags.INTERNET_CONNECTION_PROXY Then
                'Proxy connection.
                Return ("Proxy connection.")
            End If
        Else
            'not connected.
            Return ("Not connected.")
        End If
    End Function