IsAsyncOperations Example for Visual Basic

   If LEADDICOMNet1.IsAsyncOperations (LEADDICOMNet1.hPDU) = True Then
        MsgBox "AsyncOperations enabled"
        'get the operations counts
        MsgBox "Invoked " & CStr(LEADDICOMNet1.GetInvokedOperationsCount(LEADDICOMNet1.hPDU))
        MsgBox "Performed " & CStr(LEADDICOMNet1.GetPerformedOperationsCount(LEADDICOMNet1.hPDU))
        'now disable it
        LEADDICOMNet1.SetAsyncOperations LEADDICOMNet1.hPDU, False, 0, 0
    Else
        MsgBox "AsyncOperations disabled"
        'now enable it
        LEADDICOMNet1.SetAsyncOperations LEADDICOMNet1.hPDU, True, 0, 0
    End If