GetKeyExchangeAlgorithmTLS Example for VB.NET

'This example uses the predefined variable "LEADDICOMNet1" of type "LEADDicomNet" from "LEADTOOLS Toolkit".
Private Sub GetKeyExchangeAlgorithmTLS ( )
   If LEADDICOMNet1.GetKeyExchangeAlgorithmTLS(LEADDICOMNet1.hNet, LTDNCLib.DicomCiphersuiteConstants.DICOM_TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA) = LTDNCLib.DicomMACTypeConstants.DICOM_MAC_SHA1 Then
      MessageBox.Show("Key exchange in DICOM_TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA is DICOM_MAC_SHA1")
   End If
End Sub