<System.Web.Services.WebService(Namespace := "http://tempuri.org/SMS/WebSignServiceClass")> _
Public Class WebSignServiceClass
    Inherits System.Web.Services.WebService

#Region " Web 服务设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Web 服务设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加您自己的初始化代码

    End Sub

    'Web 服务设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Web 服务设计器所必需的
    '可以使用 Web 服务设计器修改此过程。
    '不要使用代码编辑器修改它。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        components = New System.ComponentModel.Container()
    End Sub

    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        'CODEGEN: 此过程是 Web 服务设计器所必需的
        '不要使用代码编辑器修改它。
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

#End Region

    ' Web 服务示例
    ' HelloWorld() 示例服务返回字符串 Hello World。
    ' 若要生成项目，请取消注释以下行，然后保存并生成项目。
    ' 若要测试此 Web 服务，请确保 .asmx 文件是起始页
    ' 并按 F5 键。
    '
    '<WebMethod()> _
    'Public Function HelloWorld() As String
    '   Return "Hello World"
    'End Function

End Class

这是添加一个服务时的情况，在里面加一些给别人调用的模块。
调用时：
先在项目引用web服务，比如引用登陆服务：
 Dim wr As WebReference.EipUserServices = New WebReference.EipUserServices

        Dim errmess As String = wr.EipUserLogonCheck(Me.TextBox1.Text, Me.TextBox2.Text, "SIGN-1")
        If errmess = "OK" Then
。。。。。
 Else
            Page.RegisterStartupScript("111", "<script>alert('" + errmess.Trim + "');</script>")
            sjs()
            Exit Sub
        End If
        Response.Redirect("JM/Main.htm", True)
        Response.End()
可能表达不是很清楚，有问题请留言，谢谢