SetCipherToIndexTLS Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub TestSetCipherToIndexTLS ( )
   LEADDICOMNet1.SetCipherToIndexTLS(LEADDICOMNet1.hNet, 0, LTDNCLib.DicomCiphersuiteConstants.DICOM_TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA)
   Dim lTest As Integer
   lTest = LEADDICOMNet1.GetCipherFromIndexTLS(LEADDICOMNet1.hNet, 0)
   If lTest = LTDNCLib.DicomCiphersuiteConstants.DICOM_TLS_DHE_RSA_WITH_DES_CBC_SHA Then
      MessageBox.Show("Cipher DICOM_TLS_DHE_RSA_WITH_DES_CBC_SHA")
   End If
End Sub