form1.txt

适合VB初学者看

Private Sub Button1_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles Button1.Click
        '调用WebService的时间通常比较长，所以显示一个提示信息，以免运行者心急。
        Label2.Text = "调用中．．．"
        '立刻显示标签中的文字
        Me.Refresh（）
        '定义一个localhost.Service1类的实例，该类是Web Service提供的
        Dim myService As New localhost.Service1（）
        '调用该Web Service的HelloWebService方法，并把返回值赋给Label2.Text
        Label2.Text = myService.HelloWebService
End Sub