Dim sm as SOAPMethod
 
Dim sr as SoapResultProgressWheel1.Visible = true
 
sm = New SOAPMethod
 
sm.url = "http://webservices.iter.dk/calculator.asmx?WSDL"
 
sm.methodNamespace = "http://www.iter.dk/webservices/calculator.asmx"
 
sm.action ="http://www.iter.dk/webservices/calculator.asmx/Add"
 
sm.parameter("intA") = EditField2.Text
 
sm.parameter("intB") = EditField1.Text
 
sr= sm.invoke("Add")
 
if sr <> Nil then
 
StaticText1.Text = "=" + sr.Result("AddResult")
 
ProgressWheel1.Visible = false
 
end if
 
Exception err
 
ProgressWheel1.Visible = false
 
MsgBox "Exception: " + err.message