文字列を取得するループ中に、DoEventsを入れてみるとか。Do While LenB(strBuf) > 0 strXML = strXML & strBuf strBuf = Inet.GetChunk(1024, icString) DoEventsLoop