Sub SendAuthenticateRequest()
        Dim EM As EMsgAPIAuthenticate201101.AuthenticateService = New EMsgAPIAuthenticate201101.AuthenticateService
        Dim request As EMsgAPIAuthenticate201101.Request = New EMsgAPIAuthenticate201101.Request
        Dim authentication As EMsgAPIAuthenticate201101.RequestAuthentication = New EMsgAPIAuthenticate201101.RequestAuthentication
        Dim xddsauth As EMsgAPIAuthenticate201101.XDDSAuthType = New EMsgAPIAuthenticate201101.XDDSAuthType
        Dim uid As EMsgAPIAuthenticate201101.UIDType = New EMsgAPIAuthenticate201101.UIDType

        Dim AuthRequest As EMsgAPIAuthenticate201101.AuthenticateRequest = New EMsgAPIAuthenticate201101.AuthenticateRequest
        Dim AuthResult As EMsgAPIAuthenticate201101.AuthenticateResult = New EMsgAPIAuthenticate201101.AuthenticateResult
        ' Build the SOAP Header
        uid.Value = API_Demo.txtUserID.Text
        xddsauth.RequesterID = uid 'UID
        xddsauth.Password = API_Demo.txtPassword.Text 'Password
        authentication.Item = xddsauth
        request.Authentication = authentication
        request.ReceiverKey = GetRequestUrl()
        EM.Url = GetRequestUrl()
        'request.ResultRequired = EMsgAPIAuthenticate201101.RequiredType.yes
        request.RequestID = "Test"
        EM.RequestValue = request

        If API_Demo.chkUseProxyTrace.Checked Then
            EM.Proxy = New System.Net.WebProxy("http://localhost:8080")
        End If
        API_Demo.txtResult.Text = "Please wait..."
        Application.DoEvents()
        Try
            AuthResult = EM.Authenticate(AuthRequest)
            'Catch ex As System.Web.Services.Protocols.SoapException
        Catch ex As Exception
            MsgBox(ex.Message)
            Return
        End Try
        Debug.WriteLine(AuthRequest.ToString)
        'MessageBox.Show("Result=" & AuthResult.Status.StatusCode & vbCrLf & AuthResult.Status.StatusMessage)
        API_Demo.txtResult.Text = ("Result=" & AuthResult.Status.StatusCode & vbCrLf & AuthResult.Status.StatusMessage)

    End Sub