NetSecureLinkReady Example for Visual Basic

Private Sub LEADDICOMNet1_NetSecureLinkReady (ByVal hNet As Long, ByVal nError As Long)
   Dim lTest As Long
   If nError <> DICOM_SUCCESS Then
      MsgBox "Error Code is " & LEADDICOMNet1.GetErrorSecure(hNet)
      Exit Sub
   End If
   lTest = LEADDICOMNet1.GetCiphersuiteTLS (LEADDICOMNet1.hNet)
   If lTest = DICOM_TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA Then _
      MsgBox "Ciphersuite is DICOM_TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA"
End Sub