Private Function LoginRequest(ByVal sURL As String, ByVal sUsername As _
      String, ByVal sPassword As String) As String
 
        Dim oRequest As WebRequest = HttpWebRequest.Create(sURL)
        oRequest.Method = "POST"
        oRequest.ContentType = "application/x-www-form-urlencoded"
        oRequest.Headers.Add("Accept-Encoding", "gzip,deflate")
 
################################################
        ... UND HIER WEISS ICH NICHT WEITER !
################################################
 
    End Function