doing some uploading with inet control. this works. but, when i close the form its slow to close. only 2-3 sec. any ideas?
this is my statechanged event:
VB Code:
Private Sub Inet1_StateChanged(ByVal State As Integer) 'On Error Resume Next Select Case State Case icNone Case icResolvingHost: txt.Text = txt.Text & vbCrLf & "Resolving Host" Case icHostResolved: txt.Text = txt.Text & vbCrLf & "Host Resolved" Case icConnecting: txt.Text = txt.Text & vbCrLf & "Connecting..." Case icConnected: txt.Text = txt.Text & vbCrLf & "Connected" Case icRequesting: txt.Text = txt.Text & vbCrLf & "Sending a request to the host." Case icRequestSent: txt.Text = txt.Text & vbCrLf & "Successfully sent the request." Case icReceivingResponse: txt.Text = txt.Text & vbCrLf & "Receiving a response from the host." Case icResponseReceived: txt.Text = txt.Text & vbCrLf & "Transferring File..." Case icDisconnecting: txt.Text = txt.Text & vbCrLf & "Disconnecting..." Case icDisconnected: txt.Text = txt.Text & vbCrLf & "Disconnected" Case icError: MsgBox "Error:" & Inet1.ResponseCode & " " & Inet1.ResponseInfo Case icResponseCompleted: txt.Text = txt.Text & vbCrLf & "Process Complete.": Inet1.Execute , "CLOSE" End Select


Reply With Quote