Dim Req1 As New WindowsApplication1.ServiceReference1.SubmitMessageRequest Dim req As New WindowsApplication1.ServiceReference1.MessagingHubClient