Private Function Request2HP() As Boolean
        Try
            Dim request As WebRequest = WebRequest.Create(hpServer)
            request.Method = "POST"
 
            Dim byteArray As Byte() = GetBytesFromFile(XMLFile2HP)
            request.ContentType = _
              "application/x-www-form-urlencoded;charset=UTF-8"
            request.ContentLength = byteArray.Length
 
            Dim dataStream As Stream = request.GetRequestStream()
            dataStream.Write(byteArray, 0, byteArray.Length)
            dataStream.Close()
 
            Dim response As WebResponse = request.GetResponse()
            Console.WriteLine(CType(response, _
              HttpWebResponse).StatusDescription)
            dataStream = response.GetResponseStream()
 
            Dim reader As New StreamReader(dataStream)
            ResponseData = reader.ReadToEnd()
 
            reader.Close()
            dataStream.Close()
            response.Close()
 
            Return True
        Catch e As Exception
            Console.WriteLine(e.Message)
 
            Return False
        End Try
 
    End Function