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