InfoPath Dev

Could someone please provide an example in vb.net on how to pass input parameters to a web service via managed code in vb.net? On the OnLoad event I want to pass the UserName to a Web Service to return the users full name, phone number, and email address to pre-populate some text boxes. I know how to set these input parameters via rules but do not know the user name until i get to the code.

Thanks

This is in VB script it should be very easy to get code like it working in vb.net.

'Set the namespace
XDocument.DataObjects("GetPart").DOM.setProperty("SelectionNamespaces", "xmlns:ns3=""http://www.blah.com/Parts"" xmlns:dfs=""http://schemas.microsoft.com/office/infopath/2003/dataFormSolution""")

'set the parameter
XDocument.DataObjects("GetPart").DOM.selectSingleNode("/dfs:myFields/dfs:queryFields/ns3:GetPartsByNumber/ns3:sPartNumber").text = sSearchText

'run query
XDocument.DataObjects("GetPart").Query()