Listing 6: VB.NET Code Behind Form3
Private Sub btnValidate_Click( _
  ByVal sender As System.Object, _
  ByVal e As System.EventArgs) _
  Handles btnValidate.Click

  'Declaration of proxy variable and
  'variable to hold scalar value returned
  'by ValidateNewPW method.
  Dim xws1 As New cab233a.SSMWSEmpPhones
  Dim response As String

  'Assign method's return scalar value
  'to response.
  response = _
   xws1.ValidateNewPW( _
   CInt(txtEmployeeID.Text), True, _
   txtOldPassword.Text, txtNewPassword.Text, _
   txtAdminPassword.Text)

  'Set radio buttons to reflect outcome
  'of password validation.
  If response = "Failed" Then
   Me.rbtNotValid.Select()
  Else
   Me.rbtValid.Select()
  End If

  'Assign returned scalar value to 
  'fldNewPassword variable in Form2.
  Form2.fldNewPassword = response

 End Sub