Dim url As String = "http://www.test1.com/t1.aspx?f1=admin&type=t1"
Dim request As Net.HttpWebRequest = Net.HttpWebRequest.Create(url)
request.Method = "GET"
Using responseStream As IO.Stream = request.GetResponse.GetResponseStream
Dim reader As New IO.StreamReader(responseStream)
Dim result As String = reader.ReadToEnd
Forms("窗口1").Controls("ComboBox1").ComboList = result
End Using