GetEncryptionAlgorithmTLS Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub TestGetEncryptionAlgorithmTLS ( )
   If LEADDICOMNet1.GetEncryptionAlgorithmTLS(LEADDICOMNet1.hNet, LTDNCLib.DicomCiphersuiteConstants.DICOM_TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA) = LTDNCLib.DicomEncryptionMethod.DICOM_CRYPT_3DES Then
      MessageBox.Show("Encryption in DICOM_TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA is DICOM_CRYPT_3DES")
   End If
End Sub