Visual Basic - Llamada a servicio web desde visual basic

Public Function control_proceso_activo() As Integer

        Dim id As Integer = 324551

        Dim controlservicioweb = New ServicioWeb.controlprocesosPortTypeClient

        Dim status As Integer =controlservicioweb.control_proceso(id)

        Return status

End Function

<?php

//nesesario para conexion a mysql

	require("./crm_lib/mysql.php");

	include("./crm_lib/CRM_lib.php");

	set_time_limit(0);

	ini_set('memory_limit', '-1'); 

//VP 20150430 Afegit per evitar warnings de zona no definida

if( !ini_get('date.timezone') )

{

	date_default_timezone_set('Europe/Madrid');

}

require_once('lib/nusoap.php'); 

$ns="http://localhost/-allamchz/nusoap/";

$server = new nusoap_server;

$server->configureWSDL('controlprocesos', $ns);

$server->wsdl->schemaTargetNamespace = $ns;

//funcion control_proceso

$server->xml_encoding = "utf-8";

$server->soap_defencoding = "utf-8";

$server->register('control_proceso',

			array('idproceso' => 'xsd:int'),  //parameter

			array('return' => 'xsd:int'), $ns

			);

function control_proceso($idproceso) {

		//por defecto el proceso esta activo

		$statusactivo=-1;

		conecta_mysql("localweb");

		$sqlprocesos="SELECT statusactivo FROM control_procesos";

		$sqlprocesos.=" WHERE idproceso=".$idproceso;

		$result=mysql_query($sqlprocesos);

		//return $statusactivo;

		seguimiento_CRM($sqlprocesos);

		if (mysql_num_rows($result)>0){

			$statusactivo=mysql_result($result, 0,'statusactivo');

		}

		//grabamos el acceso en el historico

		$fecha=date("Y-m-d H:i:s");

		$sqlhistorico="INSERT INTO control_procesos_historico (idproceso,fechapeticion) VALUES (".$idproceso.",now())";

		//seguimiento_CRM($sqlhistorico);

		$result=mysql_query($sqlhistorico);

        return new soapval('return','xsd:int',$statusactivo);

}

$HTTP_RAW_POST_DATA = isset($HTTP_RAW_POST_DATA) ? $HTTP_RAW_POST_DATA : '';

$server->service($HTTP_RAW_POST_DATA);

?>