GetIntegrityAlgorithmTLS Example for VB.NET

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