GetStatusISCL Example for Visual Basic

' In this example, assume an error occurs in the NetReceive event. The code to
' determine why this happened should look like this:
Private Sub LEADDICOMNet1_NetReceive(ByVal hNet As Long, ByVal nStatus As Long, ByVal nType As Integer, ByVal pData As Variant, ByVal lSize As Long)
   Dim nStatusISCL As Long
   nStatusISCL = LEADDICOMNet1.GetStatusISCL (hNet)
   If nStatus = DICOM_ERROR_ISCL_DECRYPT Then
      If nStatusISCL = 24 Then
         ' error decrypting message data
         MsgBox "Error decrypting message"
      End If
      If nStatusISCL = 25 Then
         ' error decrypting MAC code
         MsgBox "Error decrypting MAC code"
      End If
   End If
End Sub