IsAsyncOperations Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub TestIsAsyncOperations ()
   If LEADDICOMNet1.IsAsyncOperations(LEADDICOMNet1.hPDU) = True Then
      MessageBox.Show("AsyncOperations enabled")
      'get the operations counts
      MessageBox.Show("Invoked " & CStr(LEADDICOMNet1.GetInvokedOperationsCount(LEADDICOMNet1.hPDU)))
      MessageBox.Show("Performed " & CStr(LEADDICOMNet1.GetPerformedOperationsCount(LEADDICOMNet1.hPDU)))
      'now disable it
      LEADDICOMNet1.SetAsyncOperations(LEADDICOMNet1.hPDU, False, 0, 0)
   Else
      MessageBox.Show("AsyncOperations disabled")
      'now enable it
      LEADDICOMNet1.SetAsyncOperations(LEADDICOMNet1.hPDU, True, 0, 0)
   End If
End Sub