'TextBox、DataGridView、Button を配置してください。 Public Class Form1 'ここには、取得した Yahoo! 用の アプリケーションIDを指定します。 Private Const AppID As String = ************ Private BaseURL As String = "http://search.yahooapis.jp/WebSearchService/V1/webSearch?query={0}&appid=" & AppID Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click Dim ds As New DataSet() ds.ReadXml(String.Format(BaseURL, Uri.EscapeUriString(TextBox1.Text))) DataGridView1.DataSource = ds.Tables("Result") End Sub 'Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load ' Dim c As New DataGridViewLinkColumn() ' c.Name = "Url" ' c.DataPropertyName = "Url" ' DataGridView1.Columns.Add(c) 'End Sub End Class