Why function returns 0?

[Swan]

I am creating OCX for Http Upload control.can anyone plz tell me why the function UploadFileHTTP returns 0 when used?I am posting my code----

Public Function UploadFileHTTP(ByVal localFileName As String, ByVal remoteFileName As String) As Integer
    Dim nRet As Integer
    Dim bRet, bQueryInfo As Boolean
    Dim iRet As Integer
    Dim nFileHandle, i As Integer
    Dim bData(BUFFER_SIZE - 1) As Byte
    Dim leftoversize As Long
    Dim blnSendRequest As Boolean
    Dim szContent As String
 
    nFileHandle = FreeFile
 
    hRequest = HttpOpenRequest(hConnect, "POST", "192.168.3.13/Fileupload/Upload_Signature.asp", "HTTP/1.0", 0, 0, INTERNET_FLAG_NO_CACHE_WRITE, 0)
        If hRequest = 0 Then
            LastDllErrorInfo 'Call before calling any other dll function
            If Not HttpErrorCode = 0 Then
                Err.Raise HttpErrorCode, , HttpErrorString
            End If
            Exit Function
        End If
 
    blnSendRequest = HttpSendRequest(hRequest, vbNullString, 0, localFileName, Len(localFileName))
    bQueryInfo = HttpQueryInfo(hRequest, HTTP_QUERY_CONTENT_TYPE, remoteFileName, Len(remoteFileName), 0)
 
    Close nFileHandle
    InternetCloseHandle hRequest
End Function

[danp129]

You're not telling the fuction to return anything.

UploadFileHTTP=bQueryInfo would make the function return the true/false value of HttpQueryInfo(*)

[debasisdas]

Since you are returning anything from the function and the function return type is integer it returns 0.