problem using Internet transfer control in a web service

<i><b>Originally posted by : James (james@phys87.cjb.net)</b></i><br />I have a web service set up as following<br /> <WebMethod()> Public Function DownloadHtml() As String<br /> Dim s As New InetCtlsObjects.Inet()<br /> s.AccessType = InetCtlsObjects.AccessConstants.icUseDefault<br /> s.Protocol = InetCtlsObjects.ProtocolConstants.icHTTP<br /> Dim url As String = "http://yahoo.com"<br /> s.URL = url<br /> Dim m As String<br /> m = s.OpenURL(url, InetCtlsObjects.DataTypeConstants.icString)<br /> Do Until s.StillExecuting = False<br /> Loop<br /> DownloadHtml= "result=" & m<br /> End Function<br /><br />I always get a empty string for return. What's wrong?