' Get the HTML response from a server
    Public Function GetUrl() As Boolean
        Dim lcHeader As String = ""
        Dim lcUrl As System.Uri = Nothing
        Dim lcValue As String = ""
        Dim llSuccess As Boolean = False
        Dim loHttpWebRequest As System.Net.HttpWebRequest = Nothing
        Dim loObject(2) As Object
        Dim loStream As System.IO.Stream = Nothing
        Dim loStreamReader As System.IO.StreamReader = Nothing

        ' Reset the values
        cHTML = ""

        ' If we have a URL
        If cUrl.Length > 0 Then

            ' Make it into a Uri
            lcUrl = New System.Uri(cUrl)

            ' Make it into a Web request
            loHttpWebRequest = System.Net.HttpWebRequest.Create(lcUrl)

            ' If we have a timeout
            If nTimeout > 0 Then
                loHttpWebRequest.Timeout = nTimeout
            End If

            ' If we have a username
            If cUsername.Length > 0 Then
                loHttpWebRequest.Credentials = New System.Net.NetworkCredential(cUsername, cPassword)
            End If

            ' For each header
            For Each loObject In oHeader

                ' Initialization
                lcHeader = loObject(1)
                lcValue = loObject(2)

                ' Add the header
                loHttpWebRequest.Headers.Add(lcHeader, lcValue)

            Next

            ' Assign the cookie container
            loHttpWebRequest.CookieContainer = oCookieContainer

            Using loHttpWebResponse As System.Net.HttpWebResponse = loHttpWebRequest.GetResponse()

                Try
                    loStream = loHttpWebResponse.GetResponseStream()
                    loStreamReader = New System.IO.StreamReader(loStream)
                    cHTML = loStreamReader.ReadToEnd()
                    llSuccess = True
                Catch loError As Exception
                    cMessage = loError.Message
                End Try

            End Using

        Else
            cMessage = cURLCannotBeEmpty
        End If

        ' Reset the values
        cPassword = ""
        cUrl = ""
        cUsername = ""
        nTimeout = 0
        oHeader.Clear()

        Return llSuccess
    End Function