Enviar conteudo POST em VB

[Mach4_PT]

Boas pessoal... Eu estou a tentar fazer um programinha e estou com umas duvidas em relação a enviar informação POST para um website.

Enviar GET é fácil... mas para fazer logins a maioria dos sites usa mesmo Post por isso não estou a conseguir...

Alguém tem ai algum código para eu dar uma vista de olhos ou um tutorial porreiro?

neste momento estou a tentar usar este código mas não está a funcionar muito bem:

Function Login(ByVal lUsername As String, lPassword As String, lUrl As String)
wnsLogin.RemoteHost = Mid(lUrl, 8, Len(lUrl))
wnsLogin.RemotePort = 80
strPost = "username=" & lUsername & "&password=" & lPassword
strHTTP = "POST /login.php HTTP/1.0" & vbCrLf
strHTTP = strHTTP & "Host: " & Mid(lUrl, 8, Len(lUrl)) & vbCrLf
strHTTP = strHTTP & "Content-Type: application/x-www-form-urlencoded" & vbCrLf & "Content-Length: " & Len(strPost) & vbCrLf
strHTTP = strHTTP & "User-Agent: MyAgent" & vbCrLf
strHTTP = strHTTP & vbCrLf
strHTTP = strHTTP & strPost
wnsLogin.Connect
Do While wnsLogin.State <> sckConnected
DoEvents
Loop
wnsLogin.SendData strHTTP
MsgBox "funka porra"
End Function

A msgbox nunca chega a aparecer... e utilizando um sniffer pareceu-me que a informação nunca chegou a ser enviada pelo programa.

Se alguem me conseguir ajudar agradecia

Sem mais,

Mach4