NetSecureLinkReady Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub LEADDICOMNet1_NetSecureLinkReady(ByVal hNet As Integer, ByVal nError As Integer) Handles LEADDICOMNet1.NetSecureLinkReady
   Dim lTest As Integer
   If nError <> LTDicomKernelLib.DicomErrorCodes.DICOM_SUCCESS Then
      MessageBox.Show("Error Code is " & LEADDICOMNet1.GetErrorSecure(hNet))
      Exit Sub
   End If
   lTest = LEADDICOMNet1.GetCiphersuiteTLS(LEADDICOMNet1.hNet)
   If lTest = LTDNCLib.DicomCiphersuiteConstants.DICOM_TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA Then
      MessageBox.Show("Ciphersuite is DICOM_TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA")
End Sub