Private Sub btnValidate_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs ) _
Handles btnValidate.Click
? Описываем proxy и переменную для сохранения массива объектов
Dim xws1 As New cab233a.SSMWSEmpPhones
Dim response As String
? Присвоить возвращенный методом Assign скаляр возвращаемому значению.
response = xws1.ValidateNewPW(CInt(txtEmployeeID.Text), _ & 
True, txtOldPassword.Text, txtNewPassword.Text, txtAdminPassword.Text)
? Показать результат проверки правильности пароля.
If response = «Failed» Then
Me.rbtNotVaild.Select()
Else
Me.rbtValid.Select()
End If
? Вернуть скаляр в переменную fldNewPassword формы Form2.
Form2.fldNewPassword = response
End Sub

Поделитесь материалом с коллегами и друзьями