SetCipherToIndexTLS Example for Visual Basic

LEADDICOMNet1.SetCipherToIndexTLS LEADDICOMNet1.hNet, 0, DICOM_TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA
   Dim lTest As Long
   lTest = LEADDICOMNet1.GetCipherFromIndexTLS (LEADDICOMNet1.hNet, 0)
   If lTest = DICOM_TLS_DHE_RSA_WITH_DES_CBC_SHA Then
      MsgBox "Cipher DICOM_TLS_DHE_RSA_WITH_DES_CBC_SHA"
   End If