VB6 - WinHttpRequest Timouts Problem

I'm using a WebRequest in VB6 and I开发者_开发知识库 have the timeouts set at "5000" (5 seconds), but even after 5 seconds it is not timing out, any help is appreciated.

x:
Dim objWinHTTP
Set objWinHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")


    objWinHTTP.Open "POST", "http://twitter.com/" & TwitterUSERNAME
    objWinHTTP.SetTimeouts 5000, 5000, 5000, 5000


    Call objWinHTTP.Send(psData)
    MsgBox (objWinHTTP.Status)
    If objWinHTTP.Status <> 200 Then
    Timer.Enabled = False
    MsgBox ("D:")
    GoTo x
    End If

you should set objWinHTTP.SetTimeouts before objWinHTTP.Open

and the four parameters you set for objWinHTTP.SetTimeouts are

Resolve, Connect, Send and Receive

So each value should be set according to that.