[Bug 18671] New: Getting Error while Calling XMLHTTP using VB6

http://bugs.winehq.org/show_bug.cgi?id=18671

Summary: Getting Error while Calling XMLHTTP  using VB6
           Product: Wine
           Version: 1.1.21
          Platform: PC
        OS/Version: Windows XP
            Status: UNCONFIRMED
          Severity: enhancement
          Priority: P2
         Component: -unknown
        AssignedTo: [e-mail]
        ReportedBy: [e-mail]
                CC: [e-mail]

'-------------------------------------------------------------------------
Hi i am getting system error : - 2146697206 
and using mxxml.dll and msxml2.dll as reference for this vb coding
kindly help me to solve this issue

'-------------------------------------------------------------------------
Option Explicit
Dim HttpReq As XMLHTTP

Private Sub Command1_Click()
On Error GoTo err
    Dim strURL
    strURL = "http://XXXXXXXXXXXXXXXXXXXXX.aspx"

'==============================================
    '===> Creating XMLIsland to send to Server <===
    '==============================================
    Dim xmlString
    xmlString = "<xml><Authenticate "
    xmlString = xmlString & "UserName='admin' "
    xmlString = xmlString & "Password ='new' "
    xmlString = xmlString & "/></xml>"

'=====================================
    '===> Sending XMLIsland to Server <===
    '=====================================
    Set HttpReq = New XMLHTTP

HttpReq.open "POST", strURL, False

HttpReq.send xmlString

'==========================================================
    '===> Receiving and Analyzing the response from Server <===
    '==========================================================
    Dim Response As String
    Response = HttpReq.responseText

MsgBox Response
Exit Sub
err:
MsgBox err.Number & " " & err.Description
End Sub