SetServerCertificateTLS Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub TestSetServerCertificateTLS ( )
   If LEADDICOMNet1.SetServerCertificateTLS(LEADDICOMNet1.hNet, "c:\cert\Server.pem", LTDNCLib.DicomTLSCertType.L_TLS_FILETYPE_PEM, "") = LTDicomKernelLib.DicomErrorCodes.DICOM_SUCCESS Then
      MessageBox.Show("Loading Server certificate succeeded")
   Else
      MessageBox.Show("Loading Server certificate failed")
   End If
End Sub