Program not responding when closing

Hi,
When i try to close the application after using Inet it stops responding. I am using VB6 SP5, NT4 SP6 and IE6. Can somebody help. The code I am using is the following. I am getting the response back correctly


'code in a form with a Inet Control and a command button
Option Explicit
 
Private Sub Command1_Click()
Dim strPostData As String
Dim strHeader   As String
Dim strData     As String
     
    'prepare the post string
    strPostData = "un=&pw=" & vbCrLf
    'prepare teh header string
    strHeader = "Content-Type: application/x-www-form-urlencoded" & vbCrLf
    'open the url
    Inet1.Execute "http://in-tiwks104/getcountry.asp", "POST", strPostData, strHeader
     
     
End Sub
 
Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim strResponse As String
Dim vtData As Variant
 
    Select Case State
        Case 12     'if it goes inside, then the transfer has been completed
            Do
                vtData = Inet1.GetChunk(100, icString)  'get the chunk of data
                strResponse = strResponse & vtData      'append the data to the final string
            Loop Until Len(vtData) = 0
             
            'write the data to a file to see if it has been correctly installed
            Open "c:\test2.txt" For Output As #2    'open the file for output
            Print #2, strResponse                   'print the contents
            Close #2                                'close the file
    End Select
End Sub
Start Free Trial