Post VB6 http header Execute

vb post senden Execute

Hallo Freund des Internets,

ich versuche bereits eine Weile Einträge in ein offenes Forum von außerhalb zu schreiben.
Fortschritte gab es durch den Tipp auf der Seite:
http://www.wer-weiss-was.de/article/3357153

ich musste die entscheidende Zeile zu

AxInet1.Execute(URL, "POST", Post, Headers)

ergänzen. Die Strings Post und Headers habe ich mit LiveHttpHeader ausgelesen und eingesetzt. Der Code wird ohne Fehler durchlaufen. Doch leider ohne Erfolg. Füge ich ein

While AxInet1.StillExecuting
End While

wird der Code nicht beendet.
-Wie komme ich weiter?
-Was mache ich falsch?

hier einmal der Header:

POST /forum/message HTTP/1.1
Host: #domain#
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.1.8) Gecko/20100202 Firefox/3.5.8 (.NET CLR 3.5.30729)
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Referer: ###########
Cookie: #######
Content-Type: application/x-www-form-urlencoded
Content-Length: 296
authenticity_token=#######