GetStatusISCL Example for VB.NET

' In this example, assume an error occurs in the NetReceive event. The code to
' determine why this happened should look like this:
'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub LEADDICOMNet1_NetReceive(ByVal hNet As Integer, ByVal nStatus As Integer, ByVal nType As Short, ByVal pData As Object, ByVal lSize As Integer) Handles LEADDICOMNet1.NetReceive
   Dim nStatusISCL As Integer
   nStatusISCL = LEADDICOMNet1.GetStatusISCL(hNet)
   If nStatus = LTDicomKernelLib.DicomErrorCodes.DICOM_ERROR_ISCL_DECRYPT Then
      If nStatusISCL = 24 Then
         ' error decrypting message data
         MessageBox.Show("Error decrypting message")
      End If
      If nStatusISCL = 25 Then
         ' error decrypting MAC code
         MessageBox.Show("Error decrypting MAC code")
      End If
   End If
End Sub