Dim instance As Service
Dim request As SubscribeRequest
Dim callback As AsyncCallback
Dim asyncState As Object
Dim value As IAsyncResult
 
value = instance.BeginSubscribe(request, callback, asyncState)

[OperationContractAttribute(AsyncPattern=true, 
   Action="http://opcfoundation.org/webservices/XMLDA/1.0/Subscribe", 
   ReplyAction="*")]
IAsyncResult BeginSubscribe( 
   SubscribeRequest request,
   AsyncCallback callback,
   object asyncState
)