GetPeerEncryptionISCL Example for VB.NET

'This example uses the predefined variable "LEADDICOMNet1" of type "LEADDicomNet" from "LEADTOOLS Toolkit".
Private Sub TestGetPeerEncryptionISCL ( )
   Dim strEncr As String
   strEncr = "Unknown"
   If LEADDICOMNet1.GetPeerEncryptionISCL(LEADDICOMNet1.hNet) = LTDNCLib.DicomEncryptionMode.DICOM_ISCL_ENCRYPT_NONE Then
      strEncr = "None"
   ElseIf LEADDICOMNet1.GetPeerEncryptionISCL(LEADDICOMNet1.hNet) = LTDNCLib.DicomEncryptionMode.DICOM_ISCL_ENCRYPT_DESCBC Then
      strEncr = "DES algorithm, cipher block chaining mode"
   End If
   MessageBox.Show("Sender tried to send a message with encryption algorithm: " & strEncr)
End Sub