GetEncryptKeyLengthTLS Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub TestGetEncryptKeyLengthTLS ( )
   MessageBox.Show("Effective key length for DICOM_TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA is " & LEADDICOMNet1.GetEncryptKeyLengthTLS(LEADDICOMNet1.hNet, LTDNCLib.DicomCiphersuiteConstants.DICOM_TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA))
End Sub