服务器端(包括设计器生成的代码) Imports System Imports System.Web.Services Imports System.Web.Services.Protocols ' _ Public Class soapservice Inherits System.Web.Services.WebService Public Class MySoapHeader Inherits SoapHeader Public username As String Public passWord As String End Class #Region " Web 服务设计器生成的代码 " Public Sub New() MyBase.New() '该调用是 Web 服务设计器所必需的。 InitializeComponent() '在 InitializeComponent() 调用之后添加您自己的初始化代码 End Sub 'Web 服务设计器所必需的 Private components As System.ComponentModel.IContainer '注意: 以下过程是 Web 服务设计器所必需的 '可以使用 Web 服务设计器修改此过程。 '不要使用代码编辑器修改它。 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 ' Add a member variable of the type deriving from SoapHeader. Public temp As New MySoapHeader ' Apply a SoapHeader attribute. SoapHeader("temp")> _ Public Function HelloWorld() As String If temp.username = "admin" Then Return temp.username Else : Return "user为空" End If End Function End Class 客户端（不包括设计器） Imports System.Web.Services.Protocols Dim h As localhost.MySoapHeader Dim myheader As localhost.MySoapHeader Dim proxy As localhost.soapservice = New localhost.soapservice h = New localhost.MySoapHeader h.password = "1" h.username = "admin" proxy.MySoapHeaderValue = h Dim results As String = proxy.HelloWorld TextBox1.Text = results TextBox2.Text = h.username
（出处：http://www.sheup.com）