GetAuthenticationAlgorithmTLS Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub TestGetAuthenticationAlgorithmTLS ( )
   If LEADDICOMNet1.GetAuthenticationAlgorithmTLS(LEADDICOMNet1.hNet, LTDNCLib.DicomCiphersuiteConstants.DICOM_TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA) = LTDNCLib.DicomMutualAuthMethod.DICOM_MUTUALAUTH_RSA Then
      MessageBox.Show("Mutual authentication in DICOM_TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA is DICOM_MUTUALAUTH_RSA")
   End If
End Sub