リスト4 XML Webサービスを呼び出すコード
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click Dim ws As localhost.MyWebService = New localhost.MyWebService() TextBox1.Text = ws.GetTextFile("C:\MyFile.txt") End Sub