' Return the IP address
    Public Function GetIP() As String
        Dim lcIP As String = ""
        Dim loIPInterfaceProperties As System.Net.NetworkInformation.IPInterfaceProperties = Nothing
        Dim loNetworkInterface As System.Net.NetworkInformation.NetworkInterface = Nothing
        Dim loNetworkInterfaces As System.Net.NetworkInformation.NetworkInterface() = Nothing
        Dim loUnicastIPAddressInformation As System.Net.NetworkInformation.UnicastIPAddressInformation = Nothing
        Dim loUnicastIPAddressInformationCollection As System.Net.NetworkInformation.UnicastIPAddressInformationCollection = Nothing

        ' Initialization
        loNetworkInterfaces = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces()

        ' For each network interface
        For Each loNetworkInterface In loNetworkInterfaces

            ' Initialization
            loIPInterfaceProperties = loNetworkInterface.GetIPProperties()
            loUnicastIPAddressInformationCollection = loIPInterfaceProperties.UnicastAddresses

            ' For each Unicast IP address
            For Each loUnicastIPAddressInformation In loIPInterfaceProperties.UnicastAddresses

                ' If this is the primary address
                If loUnicastIPAddressInformation.Address.AddressFamily = Net.Sockets.AddressFamily.InterNetwork Then
                    lcIP = loUnicastIPAddressInformation.Address.ToString()
                End If

            Next

        Next

        Return lcIP
    End Function